SC £0F 



1 
2 
3 

4 
5 

6 
7 

a 

9 

11 

12 
13 

14 
15 
16 
17 
18 
19 

20 
21 
?2 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 

45 
46 
47 
48 



STa^AFR ANC CflNSCLE. TClFTVPF SE°Vlrr B0LJT1\E - >'41S "ArrtO,V36 1S!12 4-JUN-69 PAf-.E 1 

!»»»C0PY5I';m'' 1969, nIGITAL FQUIPMENT CORP., MAYNARO, l-ASS,»<i» 

iTHlS SUR-PRHGCA" ASSEMBLED .sITh SYSTEM PaRA'^ETeR FILE - S.MAC(V4l4) 

XLIST 

LI5T 
iTHIS SUa-PRiGRAs" ASSEMBLEO WITH CHNF I GUR A T I ONI OEPENDE^iT FFATURE SW 1 TCHE<: 
V0'!13) 

XLIST 

LIST 
TITLE SCNSRF - SCANNER AND CONSOLE TELETYPE SERVICE ROUTINE - V415 
SURTTL R CLEMENTS/RCC TS 03 JUW 69 

XP VSCNSF.-tlSt 



FT50SS,MAC1 



!!i0C50C0 



ENTRY SCNSRF 
SCMSRF; 



;SCNSER IS 0RGANI2E0 INTO THE FOLLOWING SECTIONS 



I I , 
III. 



IV. 



COMMENTARY O"*! OPERATION ANH OATA STRUCTURES 
SYSTEM INITIALIZATION ROUTINE - SCNINl 
UUO LEVEL ROUTINES 

A. DOTIN 

B. DOTOUT 

C. TTYUUO 

D. TTYIN 

E. TTYOUT 
COMMANC! LEVEL ROUTINES 

A. TTYATT 

B. TTYCOM 

C. TTYDCM 

D. TTYDET 

E. TTYFMD.TTYFNU 

F. TTYKIL 

G. TTYSET 
H. TTYSRC 
I . TTYSTR 
J. TTYTLK 
K, TTYUSR 

INTERRUPT SERVICE ROUTINES 
A. CTYINT 
R. SCNINT 
C, RFCINT 

1 
■:. X'^TIMT 

1 

2 



ALL LINES RECEIVER INTERRUPT 
TTEDIT - EDITS AND ECHOS 

TRANSMIT INTERRUPT 
GFTChR 
TYP 



SCNHRF 
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49 
50 
51 
52 
■53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 

69 

70 
71 
72 
73 
74 
75 
76 
77 
78 
79 



iDATA STRUCTURES AND PARAMETERS 

DEFINED PY BUILD PROCESS FOR THE CONFIGURATION 

SCNLrN=OCTAL NO. OF SCANNER LINES (0 THRU SCNLIN-D 

TRANSLATOR TABLE PARAMETERS 

TTYLEN = SCNLU-'*l LENGTH OF TTY TRANSLATOR TABLE CINCLUDING CTY) 

TTYTAB! BLOCK TTYLEN TTV TRANSLATOR TABLE 
SIGN B1T=1 IF COMMAND JUST TYPED 
RIT 1 31 IF DELAYED COMMAND 

PITS 3-11 = JOB NO TTY IS ATTACHED TO (TPCjOBN) 
BITS 12-17=TALK RING LINE # (PTALK) 
BITS 18-35=AD0R, OF DEVICE DATA BLOCK 
FOR THIS LINE, 

DEVOPRi SIXBIT PHYSICAL NAME OF OPERATORS 
CONSOLE 

DEFINED IN I0INI2 

LINE NUMBER PARAMETERS 

MLTTYL=-NO. OF TTY DEVICE DATA BLOCKS 
TCONLN=SCNLIN CTY LINE NUMBER 
mTTYLN=-TTYLEN -LENGTH OF TRANSLATOR TABLE 
TTYLST = TTY0OI3 FIRST TTY DEVICE DATA BLOCK 

TTY DEVICE DATA BLOCK FORMAT 

(STANDARD IS AS DEFINED ON SYSTEM PARAMETER TAPE) 

DEVNAMI PHYSICAL DEVICE NAME SET UP DYNAMICALLY 

VIA SCNINa. 
DEVCHR! LEFT HALF IS STANDARD 

BITS 18-23=LINE NUMBERCBYTF PO I NTERsPUN I T ) 

BITS 24-35=M0NlT0R BUFFER Silt * 1 



SCNSOF - SCANiMER AND CONSOLE TELETYPE SEBVIcr ROUTlKr 
R CLEMENTS/KPC TS 35 JUN 69 



V415 
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n 

'■2 
"l 
B-l 
"5 
"6 
~7 
BB 
?9 

40 
°1 
52 
93 
94 
95 
06 
97 
98 

99 



aacii00 

f)00400 

0611800 
002000 
0208l?!0 

4000(!^e 



:"EvinSi leet half 

l,2,4,?a,4? ARE STANDARD 

iSET TTY TO USER MODE 
!k.HE'' OUTPUT FINISHES 



USRB=:1510 

!t)SU^R = ?^0 

TPMOV=40C 

nDTM = l?0?' 
TTYDTC = 2("0(" 
SYNC = 200t«0 

TTY[nw:45'000(> 



[SUPPRESS ALL OUTPUT 

STILL ^'EXT INPUT OR INIT ( to) . 

iTTY IS IN MONITOR 

ICOMMAMD MOOE, 

iDDT MOCE 

;TTY DOe IS DETACHED FRO^' LINE 

IBREAK CHARACTER SEEN 

ISIGNAL TO INCREMENT SYNC COUNT 

IFOR SUFFER INVOLVED 

[TTY INPUT WAIT RIT 



IFNOEF FTHnpy,<FTHnPX=-l> 
IFNDEE FTDnTM|<FTDDTM=-l> 



INON-EERO TO INCLUDE H4LE-TUPLEX CODE 
IN0N-2ER0 TO INCLUDE CALLI DOTIN.OUT 



777777 777777 FTTTYSER=-1 [DEFINE THIS SYSTEM TO HAVE SCNSRF 

INTERN FTTTYSER (ASSURE MULT DEF GL08ALS IF WRONG APRSER 



5C^S>*F 



1"0 

IPl 

1?2 

1513 

1P!4 

1R5 

1?6 

1("7 

106 

IP'9 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

1?0 

1?1 

122 

123 

124 

12i> 

126 

127 

12a 

129 

130 

131 
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(10014)0 



1200200 
0004l?!0 
46)001710 
200000 



100000 



RIGHT HALF BITS (USER MODE) 
FCSsi e? 



N:OEC'-iO = 2?|0 
nLRSiiP = 4?0 
"£RTpO=IOIKPM 
IG^'OR=IDDERR 



nEVSERi 
nEVB'jFi 
DEVIaD! 



;full Character set. pass 

)0N ALL characters except tc 
!N0 SPECIAL character PROCESSING 
;ECHO SUPPRESSION RED BY PROG 
1400 SUPPRESSES "$" FOR ALTMODE 

;monitor error type-out 

) IGmORE all INT, for 1/2 

!0f a second when echo 

;failure occurs, 
echof=iodter iecho failure occured. 
stanoawd 
standard 

BITS 6-12=H0RI?0NTAL POSITION (BYTE 

POINTER = PHPOS). 
BITS 13-35 ARE STANDARD. 
DEVQAOl BITS 0-8=NUMRER OF CHARACTERS TO FIT 

I INTO OUTPUT BUFFER 

(POINTERS PFITCH) 
BITS 13-35 ARE STANDARD 

(THE FOLLOWING APE DEFINITIONS OF THE RELATIVE LOCATIONS OF THE 
!?'rv^L'!/*?*''^^" i!"""^ °^ T^E: device data slock for each buffer, WITH 
■TTX'tiUF AS THE BASE (DETAILTD OFSCRIPTIN IN SCNQOB COMMENTS)! 

IBUF(DAT) CONTAINS POINTER TO REG, OF CURRENT BUFFER 

IPI)TR(0AT)-PUTS CHARCTERS INTO BUFFER 

(NUMBER OF TIMES TO INCR, PUTR BEFORE RElNITING 

(TAKER POINTER TO PICK UP CHARACTERS 

(COUNT OF NUMBER OF TIMES TAKR CAN BE INCREMENTED 

(COUNT OF FREE SPACES LEFT IN BUFFER 



xp 


PUF,/ 


XP 


PUTR.l 


XP 


PCTR,2 


XP 


TAKR, 3 


XP 


TCTR,4 


XP 


FCTR,5 



SCN:SRF 
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1^2 
1,^3 
134 
Hi 
136 
137 
138 
139 
14M 
141 
142 
143 
144 
145 
146 
147 
148 
149 

150 
151 
152 
1t3 
154 
155 
156 
157 
158 
159 
160 
161 
162 
153 
164 
165 
165 
167 
168 



40f!^{?l0 
200^/10 
108101^ Kl 
040000 
020i)PI0 
0100PI0 
0040;!0 



000«ai 
000<)02 

00 '14 
000010 
000020 
000040 
000100 



000036 

000043 



iUEFI-^ITIUN -^F LINE CH AR ACTE'' I ?T I OS TARLE BITS 
ILINTAB ''AOE BV system «llILaFR 
;F-^LLOwr'G IS FOftMAT AS SET "P BY SC'UMI 
1 yt.n «1TS, LOGICAL LINFO 



EXTERMAL LINTA^ 

PTYLIfM=4?0^0(? 

CTYLIN=21000? 

nlSLIM=lPK0e'' 

OSnTL^=40000 

nSCTLN=20000 

HLrDPX=i000a 

TTYRMl =4000 



iTHIS LIME LINKED TO PTY 

ITHIS "LINE" IS CONSOLE DEVICE "TTY" 

iTHI-^ LINE IS TO A DISPLAY KEYBOARD 

lOAT* SET DATA LINE 

J0AT4 SET CONTROL LINE 

IHALF DUPLEX LINE 

JREMITE TTY LINE 



;ABOVt APE ""ERMANENT" CHARACTERISTICS 



TLKRNG=1 
X0N = 2 

FUlTMX=4 
T35=10 
137=20 
RORTPD=40 

L INRDY=10e 



'THIS LINE CURRE^ITLY IN A TALK RING 
i'O TYPED. PAPER TAPE INPUT 

ISELF ECHOING FuL DUPLEX 

IMOOFL 35 

;M00FL 37 

iRUBOUT TYPED LAST (ECHO \ BEFORE NEXT CHAR.) 

iLiNF TYPED IN BY USER (TISYNC .G.0) 

I NOT ACTUALLY IN LINTAH, BUT RETURNED BY 

I GETLIN IN TTCaLL 



JABOVE ARE TEMPORARY BITS, TURNED ON AND OFF BY VARIOUS MEANS 
i(BY MONITOR, TYPE-IN COMMANDS, OR PROGRAM) 



LGLSET=T37+T35+FULTWX+X0N 
KILMSK = R0BTPD + TLKRNG4-X0N 



ITHESE CAN BE SET OR 2ER0ED "^Y PROGRAM 
ICLEAREO AT TTYKIL 



JOECLARE THESE AS INTERNS TO GET THEM IN THE MAP 
;AND TO CHECK AGAINST S IN COMMON 

INTERNAL PTYLIN.tTYLIN,DISLIN,OSDTLN,DScTLN,HLFDPX,TTYRMT 
INTERNAL T35.T3 7,FULTWy,LGLSET,KILMSK,X0N 



SCMSRF 
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169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
1R0 
181 
lfl2 
l°-3 
184 
IBS 
1B6 

ia7 

188 
189 
19t) 
191 
192 
193 

194 
195 
196 
197 
198 
199 
2vii 

2.-1 

2f2 
2 '.13 
2:M 
2115 
2!?6 
2il7 
2178 
2n9 
210 
211 
212 
213 
214 
215 
216 
217 
218 



P000f 
30CB01 
fl0P)0C2 



PI00004 
000005 



27tnPb 

3011i'2 
310736 



0007(?6 
201106 



000006 071in6 



000010 
0000H6 
000002 
000004 



300200 
J00400 



000001 



(ACCUMULATOR ASSIGNMENTS 

CHREC=TEM 
DDB = riEVDAT 
LINE=TAC1 
HHOS=ITEM 



000007 
000000 
000011 



000003 2206?2 0000^1' 



000011 
000011 

000011 

400000 



!AC EOR CHARACTER 

(ADDRESS OF DEVICE DAT* BLOCK 

(SCANNER LINE NUMBER 

(HORIZONTAL POSITION QE TTY.(0-71) 



(SPECIAL SYMBOLS 

PION=200 
PIOFE=400 

IDLECH=1 



(BYTE POINTERS 



JTUR> PI ON BIT 
(TURN PI OFF BIT 

(DELAY CHAR FOR TABS, ETC, 
( SHOULD BE 'V. BUT FOR 37'S 



INTERNAL TPCJOBN.TYPX.FULTWX.TVPE.TAKR.BREAKB 



PHPOS! POINT 7,DEVIAD{DEVDAT) .12 
TPCJDBN:P0INT 9,TTYTAB(LINE),H 
PSAVCHt POINT 7,TTYPTR(ODB).10 

INTERNAL FTT4LK 



(HORIZONTAL POSITION 
(JOB NUMBER FOR TTY, 
(SAVE CHAR TO ECHO ON UUO LEVEL 



IFN FTTALK,< 

PTALKi POINT 6,TTYT4B(LINE),17 (POINTER TO ANOTHER TTY IN TALK RING 
> 

INTERN PLASTC.PCOMIC 

PLASTC; POINT 7,TTYPTR(DnB) .35 (FDR ECHO CHECKING ON HDX LINES 
PCOMIC! POINT 9,TTYPTR(DDa> .19 (FOR RESCANNING COMMAND INPUT LINE 

("COMMAND INPUT COUNTER" SAVES TITCTR 
PLSTLCl POINT 9,TTYPTR(DnB) .28 (FOR tU DELETION 

TOIP=400000 (SIGN OF TTYPTR(nOB) - TYPE-OUT IN PROGRESS 

ITTYPTR CONTAINS THE FOLLOWING 8YTES( 

ON IF TYPE-OUT IN PROGRESS 

1-3 SPARE 

4-10 PSAVCH. FOR INTERRUPTED ECHO 

11-19 PCOMIC, FOR COMMAND RESCAN 

20-28 PLSTLC, FOR tU 

29-35 PLASTC, FOR FCHO CHECKING HALF DUPLEX LINES 



SCr-SPF 
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219 
22P 
221 
272 
223 
2?4 
226 
226 
227 
228 
229 
230 
2U 
232 
233 
234 
235 
236 
237 



(i|0(^0P7 
000010 
■^00011 
000012 
000013 
000014 



201040 
7122'n 
260140 
205l'0 
20505>0 
2013.-«0 



001200 
000000 

000000 

000404 
000437 ' 



SCNINI IS CALLED AT SYSTEM I N I T I AL I ?AT I ON TIME FROM 
lOGO IN SYSINI VIA DISPATCH TABLE 
IT DCLEARS ALL RECEIVER FLAGS, 

2)ClFARS the PHYSICAL NAKE (DEVNAM) OF ALL U''iUSEn 
(TTYUSE=0) TTY DEVICE OATA BLOCKS, 

3)SETS DEVIOS TO XWD TPMON* I OFST , IN ALL TTY DEVICE 

DATA Blocks. 

4)SETS TTYUSE=1 IN ALL TTY DDBS IN THE TRANSLATOR TABLE. 



EXTERNAL SCNCHN,MLTTYL,MTTYL''!,TTYTAB,SCNINI 



000000 TTYINII MOVET TAC.SCNCHN 



CONO TTY,12a0<TAC) 
PUSHJ PDP,SCNINI 
MOVSI TACl.MLTTYL 
MQVSI I0S.TPM0N*I0FST 
*<OVEI ODB.TTYLST 



ICLEAR CTY. ASSIGN CHANNEL 

lOEVICE DEPENDENT SCANNER IMT 

INC. OF TTY DEV. DATA BLOCKS. NOT LINES 

IVIHGIN STATUS 

IFIRST TTY DDB ADDRESS 



2 38 
239 
2'10 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
2'^1 
252 
253 
254 
255 
256 
257 
25B 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 



000015 
000016 
000017 

000020 

000021 
000022 
000023 
000024 
000025 
000026 
000027 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000050 
000051 
000052 
000053 
000054 



205240 
616246 
4020:16 
2020?i6 
412246 
402006 
205040 
541046 
202046 
541046 
202046 
260140 
554306 
253100 
205l:.«0 
205040 
332302 
436046 
550040 
305040 
254000 
302040 
665040 
661040 
542042 
437042 
621040 
603040 
621040 
502042 
253l»0 
263140 



010000 

000004 

000000 

000002 

000004 

000011 

000120 

000021 

000013 

000047 

000041 

000063' 

000003 

000015' 

000000 

010000 

000003 ' 

000004 

000002 

000000 

000045 ' 

000040 ' 

400000 

200010 

000000 

000045 ' 

000043 

040000 

000036 

000046 ' 

000034 ' 

000000 



SCNli 



SCN2! 



SCN3: 



MOVSI 

TDNN 

SETZM 

MOVE" 

ANDCA 

5ET2M 

MOVSI 

HRRI 

MOVEM 

HRRI 

MOVEM 

PUSHJ 

HLR2 

AOBJM 

MOVSI 

MOVSI 

SKIPE 

lORM 

HRRZ 

CAIGE 

JRST 

CAIE 

TLOA 

TLO 

MRRm 

lORB 

TL? 

TLNE 

TL? 

HLLM 

AOBjN 

POPJ 



DAT 

OAT.D 

DEVN 

lOS. 

M DAT 

TT 

TA 

TA 

TA 

TA 

TA 

POP 

DDB,D 

TACl 

TACl 

TAC, 

DDB. 

TAC.D 

TACT 

TA 

SC 

TA 

TA 

TA 

TA 

TA 

TA 

TA 

TA 

TA 

TACl 

POP, 



TTYUSE 

EVMOD( 

AMCDOB 

DEVlOS 

.DEVMO 

YPTR(0 

C.TTYC 

C.TIBF 

C.TTIB 

C.TOBF 

C.TTOB 

TSETBF 

EVSER( 

.SCNl 

.MTTYL 

TTYUSE 

TTYTAB 

EVMODC 

ACl 

C.TCON 

N3 

CTCON 

C.PTYL 

C.CTYL 

C.LlNT 

C.LiNT 

C.KILM 

C.DSDT 

c.lgls 

C.LiNT 
.SCN2 



DDB) 

) 

(DDB) 

D(ODB) 

DB! 

HR 

(DDB) 

UF(DDB) 

(DDB) 

UF(DnS) 

DDB) 

M 

(TACl) 
DDB) 

LN 

LN 

IN 

INtT35 

AB(TACl) 

AB(TACl) 

SK 

LN 

ET 

AB(TACl) 



ITTY DDB IN USE BIT 

I IS THIS TTY DDB IN USE? 

INO, SET PHYSICAL NAME TO 0. 

ISET lOS T(5 INITIAL STATE 

ICLEAR TTYUSE BIT, 

ICLEAR TOIP, ETC. 

INUMBER OF CHARACTERS IN BUFFER 

lAODRESS OF TTY INPUT BUFFER 

ISET IT UP 

lADORESS OF TTY OUTPUT BUFFER 

ISET UP INFO FOR THAT 

ICLEAR MONITOR BUFFERS 

IGET NEXT TTY DDB 

ISET DDB USE BITS FROM TRANSLATOR TABLE 



ISET 

lORO 
lYES 
ICTY 
INO, 
lYES 



IZAP 



^jP PERMANENT LINTAB BITS 
INARY TTY LINE? 

LINE? 

MUST BE PTY LINE NR 

ISET LOG. LINE NUMBERS 
ISET SIGNIFICANT BITS 
INSIGNIFICANT SITS 
I IF A DATAPHDNE, 
I CLEAR OTHERS TOO 
ILEAVING REST OF BITS AS THEY WERE 



SCMSt!F 
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271 
272 
273 
274 
275 
275 
277 
278 
279 
28H 
2fll 
282 
283 
2fl4 
2S5 
2S6 
287 
2S8 
2R9 
29a 
291 
292 
293 
294 
295 
296 
207 
298 
299 
3?!B 
301 
3?2 
3!"3 
304 
3i"5 
3'/6 

3P9 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
3?0 
321 
322 
323 



JHOUTINES TC SET UP RUEFFHS 
INTERNAL TSE TBE , SE TgE I , PU TCH I 



000055 

000056 

000057 
000060 
000061 
000062 

000063 
000064 
000065 
000066 
000067 
000070 
000071 
000072 
000073 
000074 
000075 
000075 



000077 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000110 
000111 
000112 



000113 
000114 
000115 
000116 
000117 
000120 
000121 



201240 
1372412 
137240 
201246 
402006 
2540^0 

260140 
201246 
200045 
505040 
202045 
202045 
201040 
202015 
202046 
554i()45 
202045 
263140 



375005 
254000 
3730«"5 
254000 
261140 
200045 
556045 
50504K 
202045 
262140 
136405 
254000 



200006 
350006 
606000 
2540(10 
201246 
375005 
254000 



000001 

000005' 

000006' 

000013 

000012 

000065' 

000055 ' 
000041 
000000 
440700 

000003 
000001 

000001 

0000514 
0000"12 
000*100 
000005 
000^00 



000005 
000142' 
000002 
000111' 

000001 
000U00 
000002 
440700 
000001 
000001 

000001 
000000 



000002 

000046 

400000 

000141' 

000013 

000005 

000142' 



SETfirl 1 



TSETgF ! 
SETBE2: 
SETBF0: 



^OVE! 

DPP 

DP9 

MOVEI 

SETHx 

JRST 

PUShJ 

"Ol/EI 

MOVE 

HRLl 

MOVEM 

mOVEi^ 

■^OVEI 

MOVEN' 

MOVE" 
HLR2 
MOVE" 
POPJ 



DAT.l 

OAT.PCOMIC 

DAT.PLSTLC 

OAT.TT IBUE(or-B) 

TISYNC(DDfl) 

SETBF0 



POP, 
DAT, 
TAC, 
TAC, 
TAC, 
TAC, 
TAC, 
TAC, 
TAC, 
TAC, 
TAC, 
POP, 



SETBFI 

TTOBUF(DnB) 

RUF<DAT) 

440700 

TAKR(DAT) 

PUTR(OAT) 

1 

TCTR(OAT) 

PCTR(DAT) 

BUF(nAT) 

FCTR(OAT) 



;SPECIFY INPUT BUFFER 
INO LINES IN BUFFER 
; INIT BUFFER 

MNIT TTI BUFFER 
l-SPECIFY OUTPUT BUFFER 

IMITIAL TAKR AND PUTR 



I INITIALIZE COUMTERS TOO 



(CHARACTER COUNT 

lUPDATE FREE CHARACTER C(1U^'T 



(ROUTINE TO PUT A CHARACTER INTO A BUFFER (FOR INPUT , MERTPO , AND ONCF) 

(CALL MOVE! DAT,TTXBUFrDnB) ITO SPECIFY HUFFFR 

I PUShJ PDP.PUTCHI 

I ERROR RETURN, BUFFER "FULL" 

; SUCCESSFUL RETURN 



PUTCHi! SOSGF FCTR(DAT) 

JRST PUTCI0 

PUTCI'2i SOSLE PCTR(DAT) 

JRST PUTCU 

PUSH POP. TAC 

MOVE TACRUFIDAT) 

HLRZ" TAC,PCTR(DAT) 

HRLI TAC, 440700 

"OVE" TAC,PUTR(DAT) 

POP POP, TAC (RESTORE TAC 

PUTCU! IDPB CHREC.PUTfi{DAT) 

JRST CPOPJl 

[ROUTINE TO STUFF MONITOR ER^OR MESSAGE IN TTI BUFFER 

(CALLED IN LINE FROM PUTCHO 



(ANY FREE SPACES LEFT? 
(NO 

(LAST BYTE IN BUFFER FILLED? 
(NO. GO AHEAD 

JGFT ADR AND SIZE OF BUFFER 
(INITIAL COUNTER 
(MAKE A BYTE POINTER 
(STORE IT 



TTIOUT! 



MOVE 


IOS,OEVinS(DnS) 


ACS 


TOFCTR(DDB) 


TRNN 


lOS, MERTPO 


JRST 


KETCHl 


MOVEI 


DAT,TTIBUF(DrBI 


SOSGE 


FCTR(OAT) 



JRST 



PUTCI0 



[RE-ADJUST FREE CHAR COUNT 
(MONITOR ERROR MESSAGE? 
(NO, HERO CHREC TO INDICATE 
(YES, PUT REST IN TTI BUFFER 
(ANY SPACE? 
(NO. 
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J""" ?0fll?2 37l^2:'3 P'0!"i'r'." 
325 ("00123 ?54i?'c dKfei'l' 



SOS 
JHST 



' ( P u 1= ) 
PUTCI 2 



fYFS, COMPENSATE SKIP RETURN 
iAND GO TO MIonLE OF PUTOH! 



SCN'SPF - SCAN'NER AND CONSOLE TELETYPE SERVICE ROUTINE - V415 MACRO, V36 19:12 4-jilN-69 OAf.E 21 
R CLEMENTS/RCC TS 03 JUN 69 

326 ;CHARACTER A^D BUFFER HANDLI"G ROUTINES 

3?7 

328 (ROUTINE TO PICK UP A CHARACTER FROM AMY BUFFER 

329 ICALL "OVEl DAT , TTXBUF (DOB ) JTO SPECIFY BUFFER 

330 I PUShJ POP.GETChR 

^'^1 ! ONLY RETURN ICHARACTER OR ZERO IN CHREC 

^32 I IZERO INDICATES 9UFFER "EMPTY" ( TAi<R = PUTR ) 

333 

33t INTERNAL GETCHR 

335 

336 5<00124 5544J15 B0000B GETCHR! NLPii CHREC . 9UF ( DAT ) ISIHE OF THIS BUFFER 

337 fi0{5i25 3174t>5 H0?l^i'5 CAMG CHREC . FCTR (OAT ) lIS FREE COUNTER EQUAL TO SIZE? 
^^8 II. E, I IS THE BUFFER EMPTY? 

339 000126 ?54e7e ?0P141' JRST GETCHl lYES. LUAD CHREC WITH ZERO AND EXIT 

34B 000127 3730l?;5 000024 SOSLE TCTR(OAT) INO, ARE WE AT END OF PUFFFR? 

3'il ("00130 254ij!.'(» 000135' JRST GETCH2 lYES, GO ON, 

342 !?0Pl31 2004^5 000000 MOVE CHREC . BUF ( DAT ) (YES, START AT TOP AGAIN 

343 000132 5564;'5 000004 HLRZ" ChREC, TCTR (OAT ) (INITIAL COUNTER 

344 000133 505'4f0 440700 HRLI CHREC. 440700 (MAKE A BYTE POINTER 

345 000134 2024l>5 000003 MOVEM CHREC . TAKR ( DAT ) (INITIAL POINTER 

346 000135 1344f'5 000003 GETCH2I jLDB CHREC . TAKR ( DAT ) (GET CHARACTER 

347 000136 3500i'5 000005 iOS FCTR(DaT) (INCREMENT FREE CHAR, COUNT 

348 000137 3224.;:0 000124' JUMPF CHREC. GETCHR (SKIP NULLS 

349 000140 26314H 000000 POPj POP, 

350 000141 6344f0 000010 GETCHli TDZA CHREC. CHREC (RETURN INDICATING END OF BUFFER 

351 000142 350035 000005 PUTCI0t AOS FCTRIDAT) (READJUST FREE COUNTER 

352 000143 263140 000000 POPj POP, 
353 

354 

^55 (ROUTINE TO PLACE A CHARACTER INTO THE OUTPUT BUFFER 

356 (CALLED AT INTERRUPT LEVEL 

•357 (CALL MOVE CHREC . CHARACTER TO PLACE INTO BUFFER 

358 ! PUShJ PDP.PUTCHO 

3"^' I ONLY RETURN, WHETHER OR NOT CHARACTER WAS PLACED 

3S0 

361 000144 375006 000046 PUTCHO! SOSGE TOFCTR(DOB) (RETURN IMMEDIATELY IF NO ROOM 

362 000145 2540.^0 000113' jRST TTlOUT (UNLESS MONITOR ERROR MESSAGE 

363 000146 7006«!ii 000400 CONO PI.PIOFF (PREVENT PCTR AND PUTR DIFFERENCE 

364 000147 3730"6 000043 SOSLE TOPCTR(DOB) (LAST BYTE IN BUFFER? 

365 000150 254010 000155' JRST PUTCOl (NO, GO ON, 

366 000151 200046 000041 MOVE TAC , TTOBUF ( OnB > (GET COUNT AND ADDRESS 

367 000152 556046 000043 HLRZM TAC, TOPCTR { DnB ) (INITIAL COUNTER 

368 000153 505040 440700 HRLI TAC. 440700 (MAKE A BYTE POINTER 

369 000154 202046 000042 MOVE" TAC . TOPUTR ( DOB ) (INITIAL POINTER 

37t; 000155 1364!"6 000042 PUTCOl! IDOB CHREC . TQPuTR ( ODS ) (PUT CHARACTFR INTO BUFFER 

371 000155 7K0600 000200 CONO PI.PION (GET PI BACK ON 

372 000157 263140 000000 PQPj POP, 
373 
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374 
375 
376 
377 
378 
379 
3'?0 
3«1 
382 
3S3 
384 
385 
316 
3P7 
3S8 
319 
390 



JROUTINE TO CHECK IF A CHARACTER IS SPEC I AL ( ASC I I 2-37, 175-177) 

;CALL "^DVE CHREC.CHAR. TO BF CHECKEFl 

' puSh ! POP s P r" H r K 

( RETURNl IF REGULAR APCII CHAR (4l'-174), C(TACJ=a 

i «ETU°N2 IF SPECIAL CMAR., TAC LOADED WITH WORD FRO" SPCTA3 



INTERNAL SPCHEK 

C"0f"160 201240 000000 SPCHEKI MQVEI 

?00161 3054i'0 000040 CAIGE 

000162 2540?ip 000166' JRST 

000163 3074/10 000174 CAIG 

000164 263l4fc) 000000 ['QPj 

000165 334050 000033' SKIPA 

000166 20005B 000170' SPCHKli MOVE 

000167 254z;>e 000112' JRST 



TAC,0 
CHREr,40 

spchki 

CHRECil74 

PDP, 

TAC,SPCTAB-135(CHREC) 

TAC,SPCTAB(CHREC) 
CPOPJl 



JLOAP TAC WITH OR SPECIAL CHAR. WORD 



SCK'SPF 


- scan'ner and cr 


NSOLE TF.LETVPF 


SFRVIC" 
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R riFMrNTS/RCC 


TS 73 


JJN 6 5 










301 








SSfErUL CH4- 


ACTFi< TABLE 






3P2 








iEnwi^AT XwD = 


ITS + CMAS.AIOESS OF ROUTIf«E 






ioi 








IHIGM 


nR"E= ° 


ITS IN L-Hi 






3')'t 


















305 






400ii70 


SPACTM 


= 4;-0?0' 


iSPEfUL ACTION TO BE 


TAKEN 




396 






100000 


SPOUT= 


100001' 


ISPECIAL HANPLING 0,\i UDO OUTPUT 


397 






020Z00 


eWEAKtj 


=2000f 


[BREAK CHARACIER 






39B 






010000 


SPHPOS 


= ir.0?0 


ICMARACTER AFFECTS HORIZONTAL POSITION 


399 






004000 


FCSdRK 


= 4?k)? 


iSREAK CHARACTER IN rCS(100 


MODE 








002000 


ECHSUP 


= 2''00 


iSUPPtSS ECHO OF CHAR 


ITSELF 


00!»170 


0020?0 


000000 


SPCTAb 


I xho 


ECHSUP, 


;NULL 


4''3 


000171 


002001) 


000000 




xwn 


ECHSUP, 


;fA 


SOH 


4f4 


000172 


4020!'13 


001754' 




VHO 


SPACTN+ECHSUPiCONTB 


i»B 


FULTWX SM 


4'»5 


000173 


4220:?0 


001722' 




ywn 


SPACTN*ECHSuP+BREA^e,CONTC 


i»C 




416 


000174 


0020?0 


000000 




vi^n 


ECHSUP, a 


!tO 


EOT 


4^7 


000175 


002020 


000000 




XViD 


ECHSUP. 


!'E 


MRU 


4-e 


000176 


402020 


001752' 




XWD 


SPACTN*ECHSUP.CONTF 


;tF 


T37 SW 


4/9 


000177 


0040?0 


000000 




xwD 


FCSBRK,0 


MG 


(BELL) 


41H 


000200 


4100!"0 


001761' 




xwD 


SPACTN* SPHPOS, CON TH 


; 'H 


OR BACKSPACE KEY 


411 


000201 


51Be;^0 


002024' 




XInD 


SPACTN*SPhPOI5 + SPOUT,C0NTI 


J»I 


OR TAB 


412 


000202 


0200?0 


000000 




XhD 


BREAKS, 


;'J 


OR LINE FEED 


413 


000203 


5200f0 


002005' 




xnn 


SPACTNtSP0UT*8REAKP.C0NTK 


; »K 


OR VERT TAB 


414 


000204 


5200?0 


002007 ' 




XKD 


SPACTNtSPOUT*BREAKB,CONTL 


!'L 


OR FORM FEED 


415 


000205 


410070 


002061' 




xwn 


SPACTNiSPHPOS.CRLF 


;tM 


OR CARRIAGE RETURN 


416 


000206 


0020r0 


000000 




XkH 


ECHSUP. y 


! »N 




417 


000207 


400000 


001727' 




X>.D 


SPACTN.CONITO 


itO 


SUPP OUTPUT 


418 


000210 


402000 


001753' 




XhD 


SPACTN+ECHSUP.COMTP 


!»P 


T35 SW 


419 


000211 


4020i?0 


001756' 




XWO 


spactn+echSup.conto 


i'O 


XON (PAPERTAPE) 


42e 


000212 


002000 


000000 




XWQ 


ECHSUP. 


;»R 


TAPE PUNCH ON 


4?1 


000213 


402000 


001757' 




XWD 


spactn+echsup.conts 


i»S 


XOFF 


4?2 


000214 


002070 


000000 




XwD 


ECHSUP, 


i»T 


TAPE PUNCH OFF 


423 


000215 


400000 


001733' 




XwT 


SPACTN.CONTU 


; 'U 


DELETE LINE 


4?4 


000216 


002000 


000000 




XWO 


ECHSUP, B 


; tv 


OR IDLE 


425 


000217 


002000 


000000 




XnO 


ECHSUP, 


:»w 




426 


000220 


0020'^0 


000000 




XWD 


ECHSUP. 


i tx 




427 


000221 


002BP0 


000000 




XkH 


ECHSUP. 


J »Y 




428 


000222 


4220:^0 


001724' 




XKD 


SPACTN*BREAKP+ECHSUP,CONTZ 


i^i 


TTY EOF 


429 


000223 


422000 


001741' 




XHO 


SPACTIM + BREAKPtECHSUP.ALTMOD 


JASCII 33 (ALT-MODE) 


430 


000224 


002000 


000000 




xnr 


ECHSUP. 


iASCII 34 


431 


000225 


002000 


000000 




xwo 


ECHSUP, 


.■ASCII 35 


432 


000276 


002000 


000000 




xkO 


ECHSUP, 


IASCII 36 


43J 
434 
435 
436 
437 


000227 


002000 


000000 




xt.n 


FCHSUP,0 


iASCII 37 








JAROVE 


Af?E C^MTROL CHARACTERS, SELOW ASCII 175 


-177 




000230 


422000 


001741' 




xwn 


SPACTN+BREAKP+ECHSUP.ALTMOD 


:OLC 


DEC ALTMOnE 175 


438 


000231 


422010 


001741' 




xwn 


SPACTN+BREAKP+ECHSUP.ALTMOD 


lALT 


-MOOF 176 


439 


000232 


406000 


001763' 




Xl<D 


SPAcTNtECHSyP+FCSBfK.RUBOUT 


il77 


RUSOUT 



SCf- S^F 
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441 








442 








443 








444 








445 








446 








447 








448 








449 








454! 








451 


P100233 


260140 


001220' 


452 


000234 


200000 


002334' 


453 


("00275 


4370,116 


00000 2 


454 


000236 


200046 


000014 


455 


000237 


316046 


000216 


456 


000240 


260140 


000302' 


457 


000241 


2000!»0 


002335' 


458 


000242 


4130?6 


0000^12 


459 


000243 


205040 


00i0n4 


46(5 


U100244 


436046 


000002 


461 


000246 


550i)60 


000014 


462 


000246 


271040 


000021 


463 


000247 


260140 


000000 


464 


000250 


2548P0 


000020 


465 


000251 


275040 


000021 


466 


000252 


260140 


000247' 


467 


000253 


2540^0 


000250' 


468 


000254 


205700 


440707 


469 


000255 


540700 


000001 


470 


000256 


200106 


000014 


471 


000257 


201246 


000013 


472 


000260 


201640 


000124 



IFM FTnDTf,< 
! I\:HI|T 7r HOT 

iCALL ACCSlveiT /OOTIN/] AC CONTAINS POINTER TO BUFFER AREA 
JBUFFER aRFa MUST BE 21 '/I0RD5 LONG 

INTERMAL DDTIN 

EXTERNAL WSYVC. I ADRCK, ADRERR 

EXTERNAL PTYOU 



DOTIM! PUShJ PDP.TTYFNU ISET UP OEVdaT,LINE 

^OVE lOS.CXWD TTYIOW+nOTM, lOACr: 

IQRB inS,OEVI0S(DOB) IPUT INTO I/O WAIT 

•^OVE TAC,TIPUTR(OOB) 

CAMN TAC,TITAKR(OnB) lANYTHING IN BUFFER? 

PUShJ PQP.TWSY'gC INO, WAIT FOR SOHE 

noTiw: "ovE los.cxuD ttyidw.idact: 



ANDCAB I0S.DEVI0S(D3P) 



/ 



"OVSI TAC. IOFST+OOTm 

lORM TAC,0EVI0S(DEVD4T) 

MRRg TAC^UUO 

ADDl T4C,21 

PUSHJ POP, I AlRCK 

JRRT AOKERR 

SUP! TAC,21 

PUSHJ POP, lAHRCK 

JRST ADRERR 

MOVSI 

MRR 

MOVE 

MOVEI 



ISTQP ALL 10 

(CONTENTS OF USER IDOT) 



AC 



i^DVEI 



AC2,440700*PROG 

AC2,TAC 

TAC1,TIPUTR(0DB) 

nAT.TTlBUFIonB) 

AC1,<21»5>-1 (NUMBER OF CHARACTERS ALLOWED 



sc^snr 



473 
471 
475 
476 
477 
478 
479 
4S0 
4B1 
4(12 
4B3 
494 
4H5 
4P6 
4B7 
4B8 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 

5C1 
5?i2 
i'^Z 
534 
53 5 
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(»002 

?i0ei2 

«"002 
0002 
("0(12 
(1002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 



0003a0 

000301 



("00302 
000303 
000304 
000305 
000306 
000307 
000310 
000311 
000312 



260140 
322400 
260140 
2540f0 
603040 
3700J16 
3064^0 
2540J>0 
1364?0 
367640 
201400 
136400 
205040 
412046 
263140 

260140 
254000 



603i:'0 
260140 
6031^0 
603100 
254000 
2014S10 
260140 
260140 
254000 



000124' 

000273 ' 

0001601 

000267' 

024000 

000012 

000003 

000300' 

000016 

000261' 

000000 

000016 

000200 

000002 

000000 



XFRINi 



XFRIMl 



XFRIM2I 



pusHj pop,(;etchr 

JUMPE CHREC.XFRIN2 

PUSHJ PDPiSPCHEK 

JRST XFRINI 

TLN'E TAC,FCS8RK*BREAKB 

50S TISYNCtDOB) 

CAIN CHREC.3 

JRST DOTCNC 

IDPB CHREC.AC2 

SOJG ACliXFRlN 

MOVE! CHREC<a 

IDPB CHREC»AC2 

MOVSI TAC.IOSUPR 



ITRAMSFER INTO USER'S AREA 



IPRESTORED CONTROL C? 
lYES) GO INTO MONITOR MODE 

ILOOP TILL DONE 
ITERMINATE STRING 



ANDCAM TACiDEVlOSCOEVDAT) 
PQPJ pnp, 



IMAKE SURE ID NO LONGER SUPR. 



001324' DDTCNC! PUShJ 
000613' JRST 

> 



PDP.STlNAC 
M0NUS6 



IGET LINE CHARACTERISTICS 
IGO PROCESS fC 



EXTERNAL PTYOW.WSYNC 



400000 

000000 

000002 

410004 

000000 

000021 

000352' 

000652' 

000306' 



ITWSYNC IS CALLEO FOR INPUT IC WAIT 

TWSYMCl TLNE LINE.PTYLIN IPSEUOO TELETYPE TTYDDB7 

PUSHJ PDP.PTYOW ISET OUTPUT WAIT BIT IN PTY OEVIDS WORD 

TLNE LINE.XON IQO WE WANT TO START RDR? 

TLNE LlNE,PTYLINtWLFDPX*FULTWX (CAN WE? 

JRST WSYNC INO 

MOVEI CHREC.21 (READER START CHAR 

PUSHJ PDP.OUTCHS ITO OUTPUT BUFFER 

PUSHJ PDP.UTYPET ISTART TTY. AND 

JRST WSYNC IWAIT FOR INPUT 



SCNSRF 



5[«6 
5C7 
508 
5(19 
510 
511 
512 
513 
5]4 
515 
516 
517 
518 
519 
5?0 
521 
6P2 
5?3 
5?1 
5^5 
525 
527 
528 
529 
530 
531 
532 
533 
531 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
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(500315 
("0PI316 
("0IJ317 
000320 
5!00321 
000322 
000323 
000324 
000325 
000326 
000327 
000330 
000331 
000332 
000333 
000334 

000335 
000336 
000337 
000340 
000341 
000342 

000343 
000344 



EXTERNAL t«SY-MC. I ADRCK . ADRERR , CPQP J 
EXTERNAL JOBPFI.GETWOI 



IFN FTOOTM,< 

JOUTPUT FROM DDT 

JCALL AC.CSIXBIT /DOTOUT/] 

INTERNAL DHTOUT 

000313 260140 001220' (3DT0UT! PUSHJ PDP.TTYFNU 



AC HAS POINTER TO DOT OUTPUT BUFFER 



000314 200620 000014 



205000 
4370(^6 
505600 
541614 
200240 
260140 
607240 
254000 
134400 
322400 
260140 
326400 
270240 
261140 
2611412 
260140 

201000 
437006 
260140 
262140 
262140 
254000 

260140 

254000 



001020 DDT5; 

000002 

000007 

777777 

002336' DDT2! 

000000 

7600(10 0OT3; 

000321' 

000005 DDT4! 

000343' 

000345' 

000323' 

002337' 

000005 

000001 

000343' 

010000 DDTWAT! 

000002 

000312' 

000001 

000005 

000323' 

0012201 DDTUTT! 
000652' 



MOVE UUO.SUUO 



«OVSI I0S,I0*0DTM 

lORB lOS.nEVlOStOnB) 

HRLI IIUD.PROG 

MRRI IJU0,-1(UU0) 

MOVE nAT,[XWO 440700, TAC] 

PUShJ POP.GETWDI 

TLNN DAT, 760000 

JRST D0T2 

ILOB CHRECDAT 

JUMPE CHRECDOTUTT 

PUSHJ POP,CUTCHR 

JUMPN CHREC.D0T3 

ADD DAT,CXWO 070000,0] 

PUSH POP, DAT 

PUSH PDP,TAC 

PUSHJ POP, DDTUTT 



iPniNT TO USER AC 

•COMPENSATE FOR GETWDl 
IBYTE POINTER TQ TAC 
IGET THE USER'S WORD 
lANY CHARS LEFT? 
INO, GET ANOTHER WORD 
(BYTE FROM TAC 
(NULL IS END OF STRING 
(PLACE CHAR IN OUTPUT BUFFER 
(LOOP IF CHARACTER WAS PLACED 
(BACK UP POINTER 
(SAVE BYTE POINTER TO TAC 
(AND SAVE THE CHARS IN TAC 
(START OUTPUT 



MOVEI lOS.IOACT 
lORB IDS,DEVIOS(D0B) 
PUSHJ POP.WSYNC 
POP PDP,TAC 
POP POP, OAT 
JRST DDT3 



(WAIT UNTIL MONITOR SUFFER EMPTY 



(RESTORE CHARS IN TAC 
[RESTORE BYTE POINTER TO TAC 
(TRY AGAIN 



PUSHJ 
JRST 



PDP.TTYFNU 
UTYPET 



(RESTORE DAT, LINE 
(AND START OUTPUT 



SCNST 
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545 
546 
547 
548 
549 
650 
551 
552 
553 
554 
555 
556 
557 
558 
559 
5fi0 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 



(?0PI345 
f af1346 
?0ei347 
C00350 
?0C351 
?0P352 
000353 
1^00354 
C0f355 
C0C356 
(^00357 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000370 
000371 
000372 
000373 
000374 



603000 
263140 
201200 
311206 
2540>^0 
261140 
261140 
2 6114 
260140 
405400 
135220 
260140 
255000 
603100 
254000 
3012''0 
260140 
603040 
325100 
260140 
137200 
262140 
262140 
254000 



;MOHE CHARACTER AND PUEFER HAMPLING ROUTINES 

JOU'TCHR CALLFD AT Uun LEVEL TO OUTPUT A CHARACTER 

;DAT AND 008 MUST BE SET UP 

jCHECK is '^AnE FOR WHETHER SPECIAL ECHO IS REQUIRED 

iklGHT TiJIMGS ARF DOME WITH PHPO": « HPOS(NEEDNT BE SET) 

iCALL i-'OVE CHRECCHAR TO BE OUTPUT 

J PUSHJ PDP.OUTCHR 

; ONLY RETURN, WITH CHAR. OR ITS SPECIAL ECHO PLACED IN OUT BUFFER 



INTERNAL CUTCHS 



000200 

000000 

000020 

000046 

000141 1 

000H01 

0000C4 

000002 

001324' 

000177 

000000' 

0004?3' 

000000 

500000 

000370' 

000110 

002042" 

100000 

000375' 

000144' 

000000' 

000002 

000004 

000000 



OUTCHH; 



OUTCHS I 



0UTCH2; 
0UTCH3! 



TLNE 

POPJ 

MOVE I 

CAML 

JR?T 

PUSH 

PUSH 

PUSH 

PUShJ 

ANOI 

LOP 

PUSHJ 

JFCL 

TL'^E 

JHST 

CAIL 

PUShJ 

TLME 

JUMRGE 

PUSriJ 

OPB 

POP 

POP 

JRST 



IDS, lOSUPR I I/O OFF BY t07 
POP, lYES. RETURN 

HPOS.20 ICHECK FREE SPACE 

NPOS,TOFCTR(nDB) I FOR EXPANDING CHARS 



GETCHl 
PDP.TAc 
POP.HPOS 
PDP,TAC1 
PQP,STLNAC 
CHREC, 177 
hPOS I pmpos 
POP, aojhp 



I NOT ENOUGH ROOM 



(SAVE LINE 

IGET LINE DATA 

IMASK ANY JUMK 

IGET HORIZONTAL POSITION 

;NEW HPOS AFTER CHAR OUTPUT 



L!NE,OISLIN*PTYLIN 



I IS IT A DISPLAY OR PTY? 



nuTCH2 

HPOS. '072 

POP,CRLFEC 

TAC, SPOUT 

LlME.OUTCHl 

P0P,PUTCH0 

HPOS.PHPOS 

PDP.TACl 

POP, HPOS 

TPOPJ 



lYES, IGNORE HPOS AND FILLERS 

IDID IT GO OVER LINE? 

lYES, OUTPUT CRLF 

IVT.FF.hTT 

lYES. HANDLE THEM UNLESS PTY 

(PLACE IN BUFFER 

(UPDATE IN CORE 

IRESTORE LINE 



SCMSf^F 



581 
5P2 
5?3 
584 
565 
586 
5S7 
586 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
6I?0 
6!!1 
6:i!2 
603 

bJ'S 
6t?6 
6P7 
5?8 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
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iHTRir niv UUO OUTPUT OF HT.FF.VT 



(»0P'375 
5500376 
f00377 

000400 

000401 
000402 
000403 
000404 
000405 
000406 
000407 
000410 
000411 
000412 
000413 
000414 
1700415 

000416 
000416 
000417 
000420 
000421 
000422 



l"00423 
000424 
000425 
000426 
000427 
000430 
000431 
000432 
000433 
000434 
000435 
000436 



260140 

603i:?0 

2540P0 
200040 
201400 
13 5200 
302040 
201400 
306040 
2112:''0 
306040 
211200 
260140 
271200 
602200 
254000 
264000 



260140 
200040 
201400 
275230 
?540!!0 



303400 
254000 
301400 
344200 
306400 
361200 
306400 
201200 
302400 
254000 
660200 
344200 



001324' OUTCuli 

000010 

020416 ' 

000010 

000040 

000000 I 

000011 

000012 

000014 OUTCIC! 

000010 

000013 

000004 

000144' OUTClB; 

000001 

000007 

000411 • 

000371' 



=uShJ fdp.STlNAC jGET line CHARACTERISTICS 

TL^'E lI^:E.T35 (SMART TTY7 

JR?T nuTciA lYES. 

"OVE TACCHREC ICOPY THE CHARACTER 

"OVEI CHREC.40 ISTUPID TTY. 

LD« MPOS.PHPOS IGET OLD POSITION 

CAIE TACll )H TAB? 

'<OVEI ChREC.12 inO. OUTPUT LF'S. 

CAIN TAC,14 IFF? 

MOVM HPOS.l? iVES. B LF'S 

CAIN TAC,13 ivT? 

MOVN! HP0S,4 lYES. 4 LfS 

PUSHJ PQP.PUTCHO (OUTPUT THE PHONY CHAR 

AOni HPOS.l (COUNT THE OUTPUTS 

TRNE HP0S.7 (ENOUGH? 

JRST OUTClB (NO. MORE. 

JRST 0UTCH3 (NO MORE. 



000144 ' 

000010 

00?li401 

000002 

0004'^5' 



000174 

000160' 

000040 

000160' 

000010 

000432' 

000015 

000000 
000011 

000160 ' 
000007 

000160' 



OUTCIA! (HERE ON OUTPUT OF SLOW CHARS TO SMART TTY 

PUSHJ PQP.RUTCMQ (SEND THE REAL CHAR 

MOVE TAC.CHREC (COPY THE CHARACTER 

''OVET ChRECIDLECH )A DFLAY CHARACTER 

SUBI WP0S,2 (TWO SHLUFF CHARACTERS 

JRST ■ CyTClC (GO OUTPUT THE SLUFFS. 

(COUNT WILL RE MODIFIED ON VT.FF 

(CALLED AT UUO AND INT LEVEL 

(TO ADJUST HPOS FOR OUTPUT OF CHREC 

(SKIPS IF SPCHECK SAYS SPECIAL CHAR 



ADJHP! 



CAILE 


CHREC.174 


JRST 


SPCHEK 


TAIL 


CriREC.4a 


AOJA 


HPOSiSPCHEK 


fAlN 


CHREC.10 


SOJL 


HPOS, .♦2 


CAIN 


CHREC. 15 


"OVEI 


MPOS,0 


CAIE 


CHREC. 11 


JRST 


SPChFK 


TRO 


HPOS, 7 


AOJA 


HPOS, SPCHEK 



(HIGH SPECIALS? 

(YFS. NO HPOS MOTION 

(CONTROL CHARACTERS? 

(NO. COUNT HPOS FOR PRINT CHAR 

( BACKSP? 

(YES 

(CARRIAGE RETURN? 

(YES, 

(TAB? 

(NO, NO HP »10D 

(TAB, TO NEXT 8 



SCMSRF 
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635 
6?6 
627 
628 
529 
530 
631 
632 



INTERNAL FTCHECK.FTMONP 

IfN FrcHECK + FTMOiMP,< 

EXTERNAL SCiNDDf?.TTYLST,TTlRUF,TIPUTR,TITAKR,TITCTR,TIFCTR>TISYNC 

EXTERNAL TT0PUF,T0PUTR,T0PCTRiT0TAKR,TTYCHR,SCND0S,CCH4R,LINSAV 

EXTERNAL TOTCTR.TOFCTR 

> 

IFF FTCHFCK+FTMONP,< 
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633 
634 
635 
636 
637 
636 
639 
640 
641 
642 
643 
644 
545 
646 
647 
648 
649 
650 
651 



SDESCHIPTION OF DEVICE DATA "LOCK FOR TELETYPES 

iTHERt IS ONE nEVICE DATA BL^^CK FQR EACH JOB THAT CAN PE INITIALIZED 

lUNDEH TIME-SHARING, WHETHER THI"? JOB IS ATTACHED TO A PHYSICAL LINE 

;NUMBER OR NOT, THEREFnRE THERE SHOULD SE ONE DOB FOR EVERY LINE NUMBER 

iPLUS ONE FOR EVERY pSEUOO-TFLETYPE PLUS ONE FOR EVERY ADDITIONAL JOB 

(THAT AN INSTALATION MAY WISH TO RUN OETACHET FROM A PHYSICAL LINE 

;PLUS ONE DDP TO PRINT ERROR MESSAGES WHEN ALL JOBS (DDB'Sl ARE 

! INITIALIZED. 

JTHE FUNCTIONS OF THE FIRST EIGHT WORDS ARE AS DESCRIBED IN THF 

(COMMENTS IN THE SYSTEM PARAMETER TaPE( FILE NAME S). LOCATIONS 11 

(THROUGH 27 (OCTAL) RELATIVE TO SCNDDB PERTAIN DIRECTLY TO THE 

(SCANNER SERVICE BUFFERING SCHEME. THE SUBSEQUENT 2»20(OCTAL) LOCATIONS 

(ARE CURRENTLY THE TWO TELETYPE BUFFERS, THEY NEED NOT BE IN THE ODB 

(AS LONG AS THEIR ADDRESSES ARE PLACED IN THE RIGHT HALF OF TTIBUF. 

(AND TTOBUF EITHER AT ASSEMBLY, BUiLP OR RUN TIME, IF DYNAMIC 

(BUFFER CONSTRUCTION IS TO BF ADDED THESE BUFFERS MAY BE PLACED ANYWHERE IN 

(FRE CORE STORAGE. AND THE RIGHT HALF OF THE REQUIRED TTXBUF(WHERE "X" 

(MAY BE "I" OR "O'MMAY BE LOADED ONLY WHEN THAT BUFFER IS REQUIRED. 



652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
659 
670 
671 



(THERE ARE TWO BUFFERS, EACH OF WHICH IS A "RING" UNTO ITSELF[ 

(INPUT POINTED TO BY TTIBUF 

( ALL CHARACTERS TYPED GO INTO THIS BUFFER. IN ACDITION, ALL 
(OTHER COMMANDS TO SE READ BY THE COMMAND INTERPRETER IN COMCON 
( (APRSER) ARE STORED HERE, 

(OUTPUT BUFFER POINTED TO BY TTOBUF 

( ALL CHARACTERS THAT ARE OUTPUT ARE PLACED SEQUENTIALLY IN THIS 
(BUFFER( THIS INCLUDES ECHOED CHARACTERS AS WELL AS NORMAL OUTPUT OF 
(CHARACTER STRINGS, 

(THERE ARE MNF BUFFER PARAMETER WORDS ASSOCIATED WITH EACH BUFFER 
((EXCEPT FOR THE OUTPUT BUFFER, WHICH ONLY NEEDS SIX), TME LAST 
(FOUR CHARACTERS IN THE MNEMONIC DESCRIBES THE FUNCTION OF THE WORD 
(WHILE THE FIRST TWO CHARACTERS IDENTIFY WHICH SUFFER THAT THE 
(FUNCTION APPLIES TO. THE FORMULA FOR THESE WORDS IS TX'FUNC, WHERE 
(THE RELATIVE POSITION OF ALL TX'FNCl TO TTx'BUF IS THE SAME FOR 
(ALL BUFFERS. IN THIS MANNER. THE ADDRESS OF TTX'BUF IS LOADED INTO 
(ACCUMULATOR DAT, AND THE RELATIVE POSITIONS FUNCT1-FUNCT9 ARE 
(DEFINED TO BE 0-10 (OCTAL)) I,E.. FUNCTtQAT) WILL IDENTIFY THE DESIRED 
(BUFFER PARAMETER WORD REGARDLES OF BUFFER. 
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672 
673 
674 
676 
676 
677 
678 
679 

bse 

6S1 
682 
6B3 
6S4 
6S5 
686 
6fl7 
688 
6B9 
690 
691 
692 
693 
694 
695 
696 
697 
698 



;FnLLOWI»,.G ARE DEFINITIONS OF The RELATIVE BUFFER PARAMETER WORDS! 

)TTX-HUF OR r5ur(nAT)---THE LEFT HALF CHimTAImS NUMBER OF BYTES IN BUFFER AND THE RIGHT 

i HALF THE ADDRESS OF THE FIRST WORD OF THE BUFFER. THIS WORD IS 

I ONLY REAP BY The CURRENT CODE, UPON THE ADJITION OF 

=?L,FFFR ALLOCATION. Tw[S WORD WOULD BE 

AT THE TIME THAT THE BUFFER WOULD 



LOADED 
BUILT. 



IN THE 



DYNAMIC 
SAME FORMAT 



SCNINI SETS SUFFERS To LENGTH TTYCHR AT PRESENT, ALSO 
(PRESENT CODE OCCASIONALLY U^ES TTYCHR RATHER THAN HEADING LH 

' U F T T y D L' F 

TX'PUTH OR PUTR(DAT)— BYTE POIMTER USED To PLACE CHARACTERS INTO THE 

Tv,o,-To o'^";„'^ '^"^'' "^""'^ ^^ *^"° °'' "" "'-"^L TO THE TAKER POINTER. 
TX-PCTR OP PCTR(DAT)— COUNT OF NUMGER OF TIMES THAT PUTR MAY BE INCREMENTED 

BEFORE RFACHING THE LAST BYTE IN THE LAST WORD OF THF BUFFER 

(NOT THE AMMOUNT OF FREE S^ACE LFFT) 
^X'TAKR OR TAKR(aAT)---RYTE POIN;TER USED 3Y ALL ROUTINES TO PICK UP 

CHARACTERS FROM THE OUFFFR. WHEN THE TAKR IS EQUAL TO THE PUTR, 

THE BUFFER IS "E"PTY", 
TX-TCTR OR TCTR(OAT)---COUNT OF THE NUMBER OF TIMES THAT THE TAKR CAN 
r^.^r-rJ^r.^'^'^'^^'^^'^''-" BEFORE REACHING THE PHYSICAL END OF THE BUFFER. 
nx'FCTR OR FCTR(DAT)---rREE CHARACTER COUNTi I.E., HOW MANY TIMES MAY 

OUTK BE INCREMENTED BEFORE IT WOULD COME AROUND 4N0 "STEP ON" 

THE TAKR, WHEN THE F^EE CHAR, COUNT IS 2ER0, NO MORE CHARACTERS 

"AY RE PLACED IN THE BUFFER (USUAL RESULT IS GOING INTO 10 WAIT) 
TISYNC — COUNT OF NUMBER OF "LINES" THAT HAVE BEEN TYPED 

INTO INPUT BUFFER. 



TwE 



SCKiSRF 


- sca\'nfr and console ie 
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TS r'3 


699 


\ 






7C0 








7:.n 








7?i2 








7(^3 








7«4 








7/5 






000437' 


71^6 






000437' 


1"! 


(?aC437 


646471 


200000 


7518 


C00440 


00006"0 


000021 


7?9 


000441 


000000 


000000 


710 


000442 


000000 


000531' 


711 


000443 


000013 


0000^3 


712 


000444 


0000^0 


000000 


713 


000445 


000000 


000000 


714 


000446 


00005^7 


000000 


715 


000447 


000007 


000000 


716 








717 


000450 


000BK0 


000000 


718 








719 


000451 


000000 


000000 


720 








721 


000452 


000120 


000000 


722 








723 


000453 


000000 


0000(110 


724 








725 


000454 


0B00?0 


000000 


726 








727 


000455 


000000 


000000 


728 








729 


000456 


000000 


000000 


730 








731 


000457 


000000 


000000 
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;SCA^Jl^lER DEVICE GATa BLOCK, 
;NEMAlNP't, SCN DnB'S At(E GENCRATFD 
;(U!T UF LINE AT quiLI TIME, 



INTERNAL SrN')DB,LnSAV 
T1YLST=. 

SCNDDBI SIVBIT /TTY0/ 



EXP 
XWD 

xwn 

XWD 
XP 



xp 
? 

XP 

XwD 
XP 

? 

XP 

? 

XP 

? 

XP 

? 

XP 

? 



iFIROT TTT DOB 
IDEVNAM 



0.STTYPF+1 IDEVCHP 

IDEVIOS 
SCMDSP lOEVSER 

DVTTY*TVIN*DV0UT.3 JDEVMOD 

IDEVLOG 
IDEVKUF 
PROG,0 lUEVIAD, PHPOS BITS 6-12 

PROG.0 IDEVOAD, PFITCM BITS B-S 

TTYPTR,,-Z2 ITTYPTR 

IPLASTCPLSTLCPCOMIC.PSAVCH.TOIP 



TISY«iC, , 



-Z2 
-ZZt 



TTIBUF, ,-ZZt 
STTYqF»5,0 
TIPUTR, .-ZZt 

TIPCTR, ,-ZZf 

TITAKR, ,-HZt 

TITCTR, .-ZHt 

TIFCTR,,-ZZf 



IRH IS BUFFER ADR 
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732 








733 








734 








735 








736 








737 








738 


B00460 


000000 


000000 


739 


000461 


00001^0 


000000 


740 


000462 


0000^^0 


000000 


741 


PI00463 


000000 


000000 


742 


(»0H464 


000000 


000000 


743 


000465 


0000^0 


000000 


74 4 


!50(<466 


0000?0 


000000 


745 


000467 


000000 


000000 


746 


000470 


0000!?0 


000000 


747 


00PI471 


000000 


000000 


748 


000472 


000000 


000000 


749 


000473 


000000 


000000 


750 


000474 


0000(?0 


000000 


751 


000475 


000000 


000000 


752 


000476 


000000 


000000 


753 


000477 


000000 


000000 


754 








755 


0005<'0 


000120 


000000 


756 








757 


000501 


000000 


000000 


758 








759 


000502 


000000 


000000 


760 








761 


000503 


0000C0 


000000 


762 








763 


000504 


000000 


000000 


764 








765 


000505 


000000 


000000 



XP SVSPOL,,' 
iBUFFER USED AS PUSH-D5WN LI'^T 3V SYSTEM DURING 
! INITIALIZATION AND RESTARTING 



yp 

REPE 

















^ 















XP 

XWD 

XP 

z 

XP 

z 

XP 

1 

XP 

z 

XP 

? 



TIBF, ,-ZZf 
AT STTYBF,< 0> 



TTOBUF, ,-ZZt 
STTYBF«5,0 
TOPUTR, ,-ZZt 

TOPCTR, ,-ZZt 

TOTAKR, .-ZZt 

TOTCTR, .-ZZt 

TDFCTR, ,-ZZ» 



SCNSBF 



- SCANNER AND CONSOLE TELETYPE SERVICE ROUTINE 
R ClFMEnTS/RCC TS f3 JUN 69 



VtlS 



MACRO, V35 19!l2 4-JUN-59 PAGE 31 



766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 



XP 

REPEAT 



T08F, , 
STTYBF, 



<0> 



0005516 
0005f 7 
000510 
000511 
000612 
000513 
000514 
000515 
000516 
000517 
000520 
000521 
000622 
000523 
000624 
00PI525 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 





)NC, 



or CHAR. IN MON, BUF , 



785 
786 
787 
788 
789 
790 



000576 000000 000000 



LINSAV! 
> 



XP TTYCHR,<<STTYBF>»5>t 

XP SCNDDS,,-HZ ISIZE OF SCN DOB 







ICLOSE IFE FTMONP MAY BACK 



- SCANNER AND CONSOLE TELETYPE SERVICi^ ROUTINE - V415 
R CLEHENTS/RCC TS fl3 JUN 60 



MACRO, V3A 19112 4-JUN-69 PAGE 35 



791 
702 
793 
794 
795 
796 
797 
708 
799 

asia 

em 

8f!2 

8fi5 
8fi6 
8«)7 
a(?8 
8(^9 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 



("00527 
1^00530 

000531 
00C1532 
000533 

000534 
000535 
000536 
000537 
000540 

000541 
000542 

000543 
000544 
000545 
000546 
000547 
000550 



254000 
254000 
254000 
254000 
254000 

200000 
437006 
205000 
4130S;6 
260140 

603100 
607070 

3370'76 
260140 
260140 
200000 
413006 
263140 



iDEVICE DEPENDENT PART OE 10 UUDS, 



lOISPATCN TaSLE 



INTERNAL SCNDSP 
EXTERNAL CUT , SCNON • SCNOFF 



000007' 

000167' 

001240' 

000000 

000632' 

002335' 

000002 

001400 

000002 

001324' 

010000 

000020 

000012 

000302' 

000551' 

002340' 

000002 

000000 



SCNDSPl 



TTYIn: 



JRST 
JRST 
JRST 
JRST 
JRST 



MOVE 

lORe 

MOVSI 
ANOCAB 
PUSHJ 
IFN rTHDPX,< 
TLNE 
TLNN 



> 

TTVINli 



TENOIN; 
T0POPJ! 



SKIPG 

PUSHJ 

PUSMJ 

MOVE 

ANOCAB 

POPJ 



TTYINI 

CPOPJl 

TTYREL 

OUT 

TTYOUT 



I INITlALliiATION 

ITTY HUNG TIME-OUT. 

IRELEASE 

ICLDSE 

(OUTPUT 



IGNORE 



lOS.CXWD TTYIOW, IQACT] MNQICATE INPUT WAIT 

lOS.TEviOStDHB) 

lOS.ODTM+TPMON 

lOS.oEvinsiDne) 

PDP.STlNAC IGET line CHARACTERISTICS 

LINE.HLFOPX 
lOS, 10 

TISYNC(aOB) 

PDP,TWSYNC 

POP.MONUSR 

lOS.CXWD TTYIOW+DDTM*IOSUPR,ECH0E+MERTPO+IGN0R*inACT] 

lOS.DEvinscpne) 

POP, 



SCN'StiF - SCA^'^JFS A\0 CC.SOLE TELFTvPr SERVICF ROiiTlN^ 
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8?0 
8?1 
B?2 
8?3 
a'4 
8?5 
8?6 
8?7 
8?8 
8?9 
830 
831 
832 
833 
834 
835 
836 
83 7 
838 

839 
84B 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 



?0f551 
Pl0fi552 
f!Plf653 
000554 
000655 
(100556 
000657 
!'|00560 

000561 
000562 
000563 
000564 
000565 

000666 
000567 
000570 
000571 
000672 
000673 
000574 
000575 
000576 

000577 
000600 
000601 

000602 
000603 
000604 
000605 

000606 
000607 
000610 
000611 
000612 



550046 
260140 
2540C0 
260140 
201700 
201666 
270640 
201246 

260140 
3224P-0 
1364?'0 
26(''l4ei 
?540?0 

603040 
3740?'6 
3677^0 
3064i''0 
2b40t;i3 
2010P0 
3064f 
205000 
437006 



201726 000007 
275656 0000!^1 
542656 000001 



iROUTlNE TO ''OVE A LINE PR STRIMC- EROM TTY I^lPUT 8UEEER TO USER'S IMPUT nUFFER 
iCALLLD OMV FRO" UUO LEVEL, FROM INPUT UUO ONuV 



EXTLQ^AL AnvoFF.STTioO.SUFCLR 



000k)?!7 

000030 

000253 • 

001324' 

000120 

000007 

002341' 

000013 

00!"124 ' 
00^677 ' 
00.>^15 
000162' 
000670 ' 

024000 
000012 
.? 5 6 1 ' 
000003 
000623 ' 

000000 

000032 
000040 

000002 



'^0'"U'5K ! 



MONUSl ! 



M0\US2l 



M0NUS3! 



205000 
437006 
623000 
260140 
263140 



000004 
000002 
000001 
000000 
000000 



M0NUS5I 



°UShJ 

JRST 

°USHJ 

»10VEI 

MOVEI 

ADn 

HOVE I 

°USHJ 

JU"HE 

lOPp 

PUSH.) 

JRST 

TlNE 

SUSA 

■^OJG 

CAIIv 

JRST 

MOVE! 

CAIN 

MOVSI 

lORB 

■^OVEI 

SURI 

HRRM 



260140 000000 M0NUS4! PUSHJ 

254000 000606' JRST 

333006 000012 SKIPLE 

254000 000627' JRST 



MOVSI 

lORB 

TL?E 

PUShj 

POPJ 



TAC, lEvi AD(OnB) 
POP , '!JFCLR 
ADRE^R 
PQP,STL-JAC 
AC2,TTYCMR 
ACl.SDEVIAD(nD9) 
aCI.CXWD 10700, i: 
OAT,TTIBUF(DnB) 



PdPiGETCHR 

c;hrec.monuS3 

CHREC. ACl 

PDP.SPCHEK 

M0NUS2 



lAODRESS OF BUFFFR IM USER AREA 
ICLEAR WHOLE BUFFER 
lADORESS CHECK RETURN 
ISETUP LINE 

JhAX NR OF CHARACTERS 

lAORESS OF USR BUFFER-1 

IMAkF byte POINTER POINT RIGHT 

JSPECIFY USER '^ODE INPUT BUFFER 

IGET A CHAR, FROM IT 

li£»n IMPLIES EMPTY BFR 

iPLACE CHAR. IN USER BUFFER : 

ISPECIAL CHARACTER? 

I NO 



TACFCSBRK + SREAKP 

TlSYNC(unB) 

AC2,^^a^JUSl 

rHRECi-^ 

"0NUS7 

I OS , ,■■ 

CHREn,"2"-10O 

lOS, lOENO 

ios,oEvios(Dne) 

AC2,s»DEVIAn(0DB) 
ACl.K \C2) 
Atl.K AC2) 

POP, ADVBFF 
M0NUS5 
TISYNC(ODB) 
M0NUS8 

IDS, lOFST 
lOS.OEvlDSCDoa) 
lOS, lO/l 
PDP,STT ino 
PDP.^ 



;A break CHARACTER? 
ISOME BREAK, COU^'T IT DOWN 
(NO, USER BUFFER FULL? 
(STORED CONTROL C? 
)YES, HANDLE IT 

!'Z READ? 



(BREAK CHAR OR COUNTED OUT, INPUT UUO DONE 
(CALCULATE NUMBER OF WORDS 
(STORE IN 3RD PUFFER WORD 

(INPUT UUO DONE, NEXT BUFFER FULL? 
(YES, INPUT REALLY IS DONE 
(NO, DO WE HAVE MORE LINES FOR IT? 
(YES, GIVE USER NEXT LINE, TOO 



(TTY IN INPUT WAIT? 
(YES, TAKE IT OUT PF IT 



SCMSRF 



863 
8fi4 
865 
866 
867 
866 
369 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
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0B0613 
00C614 
70«1615 
("00616 
C0(16l7 
f<006?0 
!"0f'621 
03622 



260140 
205040 
272046 
3500"'6 
3700P'6 
3500('6 
260140 
2540P0 



000623 2000?0 

000624 437006 

000625 260140 

000626 254000 

000627 607000 

000630 254000 

000631 263140 



002106' M0MUS6I 

070000 

000016 

000017 

000020 

000012 

001572' 

000337' 



PUSHJ 
MQVSI 

AonM 

AGS 

SOS 

AOS 

PUSHJ 

JRST 



002335' 
000002 
000613' 
000534' 

000040 

000551' 

000000 



M0NUS7; MOVE 
I0R8 
PUSHJ 
JRST 



M0N!US8i 



TLNN 
JRST 
POPJ 



PDP.CNCMOO 
TAC. 707100 
TACTITAKRIDHB) 
T!TCTR(DnB) 
TIFCTR(Dn8) 
TISYNC(DDB) 
POP. CORSET 
wSYNC 
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ICONTROL C MODE 
iDECREMEMT TAKR POINTER 
ISO MEXT ILD3 WILL GET tC 
lAOjUST COUNTER 
lADjUST FREE CHAR, COUNT 
(SEE THE fC AGAIN 

ll^'AKE UP COMMAND DECODER 
lAND WAIT FOR INTESRRLTATION 



IOS,[X'JO TTYIOW, IQACT] 

ios,nEvios(DnB) iput job back in iowait 

PDP,M0MUS6 

TTYIM [RESTART INPUT UUO 

lOS.IOEMD IROOM FOR ANOTHER BUFFER, 'i SEEN? 
MGNUSR INO, GO PASS ANOTHER LINE 

POP, lYES, LET UUOCON HANDLE EOF 



KCMSRF 
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830 

aei 

H82 
883 
884 
885 
886 
887 
688 
889 
890 
891 
892 
an3 
894 
895 
896 
897 
898 



!?0B632 
PI0O673 
00P1634 
^00635 
R00636 
?0P1637 
?. 6 4 



C0P!641 
000642 
(?!00643 
000644 
000645 
000646 



205000 
6120''6 
661000 
4340^0 
412K'^6 
2050^0 
4370C;6 



260140 
261140 
260140 
260140 
3340?!0 
25401^0 



iOLlTPUT UUO 

EXTERNAL PTYPE.AOVBFE 



000002 

00Z002 

000200 

002342' 

000002 

000024 

000002 



001324' 

000002 

000663' 

000000 

000000 

000651' 



TTYOUTi 



MOVSI 

TONE 

TLO 

lOR 

ANOCAM 

KOVSI 

lORB 



PUSHJ 

PUSH 

PUSHJ 

PUSHJ 

SKIP4 

JRST . 



lOS, lOBEG 

lOS.OEVIOSIDOB) 

lOS.lOSUPR iKiLL '0 ON FIRST OUTPUT 

IOS,[XWD TPMON+DDTK.ECHOF+MERTPO+IGNOR+IOACT] 

lOS.nEVIOStOnS) 

IQS.IO+IOFST 

IOS,nEVIOS(DDB) 



POP.STUNAC 
POP. LINE 
POP.USRMON 
PDP.AOVBFE 



+ 3 



IGET LINE CHARACTERISTICS 

ISAVF INFO 
IMOVE USER'S BUFFER TO TTO BUFFER 

lADVANCE USER'S HEADERS 

IMORE SUFFERS AVAILABLE 



899 
900 
901 
9^/2 
9P3 
904 
905 
906 
907 
908 
909 
910 
911 



000647 
000650 
000651 
000652 
000653 
000654 
000655 
000656 
000657 
000660 

000661 
000662 



201000 
413006 
262140 
3211''10 
205040 
700600 
616046 
254000 
700600 
263140 

436046 
2540C10 



010000 

000002 

000002 

000000 

400000 

000400 

000011 

000661' 

000200 

000000 

000011 
001612' 



MOVEI 
ANOCAB 
POP 
UTYPETl JUMPL 
MOVSI 



lOS, lOACT 

IOS,DEV!OS(DnB) 

PDP.LINE 

LINE.PTYPE 

TACTOIP 
CONO PI.PIOFF 
TDNN TAC,TTYPTR(ODB) 

JRST UTYPTl 

CONO PIiPION 

POPJ PDPiB 



UTYPTl; 



lORM 
JRST 



TAC,TTYPTR(DDB) 
XMTINI 



)N0 MORE BUFFERS 
ICLEAR ACTIVE IN lOS 
;RESTORE LINE INFO 
ISTART PTY EXCHANGE IF PTY LINE 

•PREVENT TIMING GLITCH 

MS TYPE-OUT ALREADY ONJ 



(START TYPEOUT 
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952 
913 
91 4 
91 5 
91.6 
917 
916 
919 
9?0 
921 
922 
923 
924 
925 
9?6 
927 
928 
929 
970 
931 
932 
933 
9 34 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 



JROUTIK'F. TO MOVE USER OUTPUT BUFFE^? TO HON. 
.•CALLED ONLY AT MUO LEVEL. RY OUTPUT UUO 



OUTPUT BUFFER 



[»0P6(S4 
t<0?66r3 

(100666 
000667 
000670 

000671 
000672 
000673 
000674 

000675 
000676 

000677 
000770 
0007r'l 
000702 
000703 
000704 
000705 
000706 
000707 

000710 
000711 
000712 
0fcl07l3 



EXTERN U4 0°C'< 

201726 000210 USRMOM MOVE I 

200716 0000?1 MOVE 

221700 000005 IMULI 

550646 000010 USRMNlI HRRZ 

260140 000000 PUSHJ 

270640 002343' ADD 

134400 000015 USRMN2! ILDB 

322400 000675' USRMN4; JUMPE 

260140 0003451 PUSHJ 

322400 000677' JUMPF 



367700 
263140 

261140 
261140 
200103 
260140 
262140 
262140 
2000E.6 
135400 
254000 



000671 1 

00 00 

000016 

000015 

777775 

000710 ' 

000015 

000016 

000002 

000015 

000672' 



USRMN5I SOJG 
POPJ 



UbRMV3! 



PUSH 

PUSH 

MOVE 

PUSHJ 

POP 

POP 

MOVE 

UDR 

JRST 



200000 002344' TTOUWS! "OVE 

437006 000002 lORB 

260140 000652' PUSHJ 

254000 000622' JRST 



AC2.SDf;vnAn(r!DR) 
4C2.1( AC2)' 
AC2.5 

ACLOEVOADCDOBJ 

POP.MADRCK 

ACl.rXWD 10700tpROG,l] 

CHREC.ACl 
CHREC, JSRMN5 
POP. 3UTCHR 
CHREC.USRMN3 

AC2.USRMN2 
POP. 

POP. AC2 

POP, AC1 

LINE,-3(PDP) 

POP. TTOUWS 

PfJP.ACl 

PDP.AC2 

lOS.OEVIOSCOOBl 

CHRECACl 

USRMN4 

IOS,[XWD lO.IOACT] 

lOS.nEVIOStDOB) 

POP.UTYPET 

WSYNC 



iADORESS OF 2ND PUFFER HORD 
;NUMRER OF WORDS TO OUTPUT 
!NR OF CHARACTERS 

JADORESS OF BUFFER 
IMAKE SURE IT IS OK 
(MAKE POINTER RELOCATABLE 

(PICK UP CHARACTER 

I IF NULL. IGNORE 

iPLACE IN OUTPUT BUFFER 

!IF NO MORE ROOM IN MOrj, BUFFER 

ILOOP AS LONG AS THERE ARE CHAR'S, 
IDONE 

INUMBER OF CHARACTERS TO GO 

ISAVF RELOCATABLE POINTER 

.'GET SAVED LINE CHAR WORD 

;WAIT FOR 10 

(RESTORE POINTER 

IRESTORE COUNT 

IRESTORE lOS 

IGET LAST CHARACTER 

IRETUKN TO OUT LOOP 

;SET DEVICE ACTIVE (TTY) 

ISTART TYPING IF NEEDED 
IWAIT TILL ROOM IN BUFFER 



SC^SRF 
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9'17 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 

966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 



Pi0!?715 
PI01»716 
C0071 7 
000720 
fl00721 
000722 
000723 
000724 



iTTCALL - TUAMITY pj AC FIEL.D DETERMINES ACTION OF UUO (051) 

INTEtRNAL TTYHUP 
EXTERN UAncl 



0007-14 260140 001220 



3016Z0 
263140 
302500 
3065?0 
254032 
550640 
260140 
254032 



000015 

000000 
000001 

000033 

000725' 

000014 

000000 

000725' 



000725 000000 001001' TTUUOT; 

000726 0000:i0 0010101 

000727 0000^0 00,17441 

000730 0000i"0 000771' 

000731 0000^0 000760' 

000732 000000 000742' 

000733 0000^0 001020' 

000734 0000^0 001035' 

000735 0000/0 001170' 

000736 000000 000055' 

000737 000000 000064' 

000740 000000 000775' 

000741 000000 000772' 



pu=;hj 


PDP.TTYFMU 


CAIL 


UCHN.TTUUOL 


PQPJ 


i^DP, 


CAIE 


liCHN.l 


CAlr^ 


JOHN, 3 


JKST 


i»TTuiJOT(UCHN) 


HPRE 


ACl.UU-! 


PUSHJ 


PDP.UAOCKl 


JRST 


STTUDOTCUCHN) 


EXP 


INCHRW 


FXP 


GNEOIIT 


FXP 


IHChRS 


EXP 


nUTSTR 


FXP 


INCHWL 


EXP 


Ii'VCHSL 


EXP 


GETLIN 


EXP 


SETlIN 


FXP 


TREsru 


E)IP 


SETBFI 


EXP 


SETBF2 


EXP 


SKPINC 


rxp 


SKPINL 



;T00 HIGH AC FIELD? 

;YES, NO-OP 
lA READ OPERATION? 
I I .£.. PURE? 
lYES. DONT ADR CHECK 



IDISPATCH TO UUO ROUTINES 



l(0)INPUT CHAR. WAIT TILL TYPED 
) (IJOUTPUT A CHARACTER 
I (2) INPUT A CHAR, « SKIP 

I (3)0UTPUT A STRING 
)(4)INPUT CHAR, WAIT, LINE MOHE 
l(5)INPUT CHAR, SKIP, LINE MOuE 
!(6)GET LINE CHARACTERISTICS WOUln 
I (7)SET aiTS IN LH LINTAR 
1(10)BACK UP POINTER TO COMMAND 
I (ll)CLEAR INPUT BUFFER 
1I12)CLEAR OUTPUT BUFFER 
l(13)SKIP IF CHAR TO INPUT 
!(14)SK1P IF LINE TO INPUT 



000015 TTUUOL=. -TTUUOT 
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978 

979 

9(10 

9f(l 

9S2 

983 

984 

9B5 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

10514 

1005 

10f16 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 



0742 
0743 
0744 
0745 
0746 
0747 

750 
0751 
0752 
0753 
0754 

755 
0756 
0757 



000760 
000761 
000762 
|'I00763 
000764 
000765 
000766 
000767 
000770 



000772 
000773 
000774 



337006 
263140 
201246 
260140 
3224(^0 
260140 
255000 
603040 
370006 
260140 
306400 
254000 
202420 
254000 



INPUT A CHARACTER AND SKIP---IF NONE TYPEO, DON'T SKIP 



000012 

000000 

000013 

000124' 

000000 

000160' 

000000 

024000 

000012 

000545' 

000003 

000613' 

000014 

000530' 



INCHSLt 
INCHRS; 



•;kipg 

POPJ 

MOVE I 

PUSHJ 

JUMPE 

PUSHJ 

JFCL 

TLNE 

SOS 

PUSHJ 

CAIN 

JRST 

MOVEM 

JRST 



TISYNC(DOB) 

PDPi0 

CIAT,TTIBUF(D0B) 

PDP.GETCHR 

CHRECCPOPJ 

POP, SPCHEK 



lANY LINES IN BUFFER? 
IND, RETURN 

IGET A CHARACTER 

IFR0« TTI BUFFER 

iRETURN IF NULL(EMPTY BUFFER) 



TAC,FCSBRK*BREAKe 

TISYNC(DDB) (KEEP BREAK COUNT RIGHT 

POP.TENOIN ICLEAR UP lOACT, IDSUPR, ETC 

CHREC.3 

M0NUS6 (STORED »C 

CHREC.9UU0 (MOVE INTO LOC. SPECIFIED BY UUO 

CPOPJl (AND SKIP RETURN 



(INPUT CHARACTER AND WAIT, LINE MODE 



260140 000742' INCHWLI PUSHJ PDP.INCHSL 



(SEE IF ANY CHARS, 



254000 000763' JRST 

263140 000000 POPJ 

200000 002335' MOVE 

436006 000002 lORM 

205000 001000 MOVSI 

413006 000002 ANDCAB 

260140 000302' PUSHJ 

254000 000760' JRST 

(OUTPUT A STRING 



(NO 



. + 2 

PDP,0 (YES, GIVE IT TO USER 

lOS.CXWD TTYIOW, lOACT] (NONE, WAIT FOR IT 
lOSiDEVIOSlODB) (TTY TO lOW STATE 

lOS.DDTM (JUST IN CASE 
IOS,DEVIOS{DDB) (CLEAR DDTMODE BREAK FLAG 
PDP.TMSYNC (WAIT FOR CHAR 
INCHWL (AND TRY AGAIN 



000771 254000 000315' OUTSTR! JRST 



333006 
350003 
263140 



000775 554046 

000776 313046 

000777 350003 
001000 263140 



000012 
000000 
000000 

000013 
000020 
000000 
000000 



SKPINL: 



SKIPLE 

AOS 

POPJ 



DDT5 

TISYNC(OOB) 

0(POP) 

POP.0 



(JUST USE DDT OUTPUT CODE 

(INPUT BUFFER HAVE A LINE? 

lYES, SKIP, 

(RETURN 



SKPINC! HLP2 
CAMLE 
AOS 
POPJ 



TAC,TTIBUF(DDB) (SIZE OF IN BUFFER 
TAC,TIFCTR(DnS) (SI2E > # FREE CHARS? 

0(PDP) (YES. SKIP, 

PDP,0 (RETURN, 
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1019 
1020 
1021 
1022 
1023 
1024 
1025 
1025 
1027 
1028 
1029 
1030 
1031 
1032 
3 033 
1034 
1035 
1036 
1037 

1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 



!^01001 
0010C2 
0010C3 
00]0f)4 
001005 
001006 
0010?7 



001010 
001011 
001012 

001013 
001014 
001015 
001016 
001017 



001020 
^101021 
001022 
001023 
001024 
001025 
001026 

001027 
001030 
001031 
001032 
001033 
001034 



001035 
001036 
001037 
001040 
001041 



260140 
2540{»B 
263140 
2000?0 
4370<?6 
260140 
2540510 



260140 
200400 
405400 

322400 
260140 
3264^0 
260140 
254000 



335060 
254000 
201100 
301040 
254000 
200102 
550301 

135040 
322040 
333006 
6611.J0 
202120 
263140 



205040 
412042 
404060 
436042 
263140 



;MnHE ROUTINES CALLED RY TTY UUO DISPATCHER 
EXTERNAL TTPLEN, GETWnU- 



0007441 

001004' 

000000 

0023341 

0000!?l2 

000302' 

001001' 



ilNCHRW GOES INTO I/O WAIT IF MO CHARACTER HAS BEEN TYPED--Nn SKIPS 

INCHRW! PUSHJ PDPiINCHRS ;GET ACHAR IF ONE IS THERE 

JRST .+2 iNONE THERE 

POPJ PDPi ICHAR, PICKED UP AND STORED 

MOVE lOS.CXWD TTYIOW+ODTM. IOACT: sSETUP FOR lOMAIT 

lORB IOS,DEVIOS(DDB) I SPECIFICALLY FOR INPUT WAIT 

PUSHJ POP.TWSYNC IWAIT FOR CHAR, TO BE TYPED 

jRST INCHRW IGO GET IT 



;ONEOUT OUTPUTS ONE CHARACTER 



000000 
000001 
000177 

000746' 
000345' 
000343' 
000710' 
001010' 



ONEOUT: PUSH,) 
MOVE 
ANOI 

JUMPE 
PUSHJ 
JUMPN 
PUSHJ 
JRST 



POP.GETWDU 

CHRECrTAC 

CHREC.177 

CHREC.CPOPJ 

PDP.OUTCHR 

CHREC»ODTUTT 

POP.TTOUWS 

ONEOUT 



IPICK UP CHAR FROM USER 
IPUT IT IN PROPER AC 
IMASK ANY JUNK 

IDONT STORE NULLS 

IPLACE IT IN TTO BUFFER 
IIF IT STORED, RETURN 
(BUFFER WAS FULL. TRY AGAIN LATER 



;GETlIN puts line CHARACTERISTICS WORD INTO ADR, IN UUO ADR. FIELD 



300014 GETLINl SKIPGE TAC.9UU0 



001033' 

000000 

000000 

001033' 

000052' 

000035' 

000000 

001033' 

000012 

000100 

000014 

000000 



GETLNll 



JRST GETLNl 

MOVEI L1NE(0 

CAIL TAC, TTPLEN 

JRST GETLNl 

MOVE LlNEiLlNTAB(LINEl 

HRR2 DEVDAT,TTYTAB(TAC) 

LOB TACPJOBN 

JUMPF TAC, GETLNl 

SKIPLE TISYNC(DEVOAT) 

TLO LlNE.LINRDY 

MOVEM LINEi»UUO 

POPJ PDP, 



IDOES USER WANT OWN LINE CHAR, WD, 7 

lYES 

INO, CHECK SIZE OF NUMBER 

ITOO HIGH? 

lYES. GIVE HIM THE 0. 

lOK, GET THE ENTRY 

IGET OEVOAT ON REQUESTED LINE 

I NOTE - NO LONGER ON JOB'S TTY 

IGET JOB NUMBER OF REQUESTED TTY 

)IF NONE, NO LINES, 

lANY TYPE-IN? 

(YES. FLAG. 

(GIVE IT TO USER 



(ROUTINE TO SET LINE CHARACTERISTICS THAT ARE SETABLE 

(MAKE MASK OF ALL OF THEM 



000036 SETLINl MOVS! 
001025' ANDCAM 

000014 AND 

001035' lORM 



000000 



POPJ 



TAC.LGLSET 

TACLlNTABtLINE) 

TAC.SUUO 

TAC,LINTAB(LINE) 

PDP, 



(SET ONLY THOSE BITS USER WANTS SET 
(SET RESULTANT 
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iafi9 

107(3 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

11^78 

1079 

iap0 

lUPl 

1032 

1093 

10fl4 

1085 

1086 

1087 

1 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

11H2 

ll'^3 

1104 

1105 

11!'6 

1107 

1108 

11(?9 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1118 



088 5101042 



001042 

fai043 

l?01044 
001045 
001046 
,001047 
001050 
001051 
001052 
001053 
001054 
001055 
701056 
001057 
001060 
1^01061 

001062 
P'01063 
001064 
001065 
001066 
00] 067 
001070 



001071 
001072 
001073 



260140 
2013L'a 
3340',<0 
554306 
322300 
135040 
500046 
607040 
254000 
200006 
306201 
607040 
2540;10 
603000 
254000 
200043 

332041 
312040 
263140 
2 6114 
135l''0 
550043 
3121?I0 

P60140 
262140 

261140 



001324' 
000437' 

000000 

000003 
001106' 

001027' 

000004 

000010 

001105' 

000002 

000000 

020000 

001045' 

002000 

001073' 

777775 

0000C0 
000000 
000000 
000002 

000000 
0000510 
000001 

001141' 
000002 

000006 



ROUTINE TO ATTACH TTY TO A JOB 

CALL! MOVE DEVOAT, ADDRESS nf jTY DEVICE DATA BLOCK 

"OVE ITEMiJOR NUMBER 

pUShj POP.TTYATT 

ERROR !DEVDAT=nDB ADR OF OTHER TTY 

ilE ANOTHER ALREADY IS ATTACHED. 

OK RFTURiJ (DEVDAT, OAT AND TRANSLATOR TAf?LF SET 

CALLED FROM COMCON (ATTACH) AND COMCSS (JOBINI). 
ON OK RETURN DSETS TTYATC 

3)PUTS AODRESS OF ATTACHED DDB INTO DEVDAT. 

4)SETS PHYSICAL NAME TO SIXBIT /TTY LINE #/ 
OR SIXRIT /CTY/, 

5)SETS DEVOPR IF IT IS NON-iiERO, 



INTERNAL TTYATT.TTYATI 
EXTERNAL PUNIT,P.J0BN,TTYTAR 



TTYATI 1 
INTERNA 
IFN FTA 
TTYATT! 



TTYAT2 



L FTA 
TTACH 
PUSH 
MOVE 
SKIP 
HLR? 
JUMP 
LDB 
HLL 
TLNN 
JHST 
MOVE 
CAIN 
TLNN 
JKST 
TLNE 
JKST 
MOVE 



TTACH 
.< 

J P 

I n 

A 

DEVn 

E DEV 

TACP 

TACD 

TAC, 

TTYA 

I OS, 

ITEM 

TAC, 

TTYA 

lOS, 

TTYA 

TAC. 



DP.STlNAC 
EVDAT,TTYLST 

AT,DEVSER(0 

DAT,TTYAT4 

JQBN 

EVMODCDEVDA 

OVTTY 

T4 

DEVIOS(DDB) 

, (TAC) 

TTYATC 

T2 

TTYDTC 

T5 

-3(PDP) 



)GET LINE CHARACTERISTICS 
(SEARCH FOR DOB THAT IS ATTACHED 

FVDAT) 

IH4VE ALL TTY ODB'S SEEN LOOKED AT? 

INO. GET JOB NUMBER. 
T) lATTACH AND USE BITS 

IIS THIS STILL A TTY DDB? 

INO, THIS MUST BE IJOB. 



TTYATb! 



SKIPF TAC.DEVNAM(TAC 

CAME TAC, DEVOPR 

POPJ POP, 

PUSH POP, LINE 

LDB LINE,PUNIT IGET 

MRRZ TAC, (PDF) 

CAME LINE, TAC 

PUSHJ PDP.TTYOET 
POP POP. LINE 
PUSH POP, DEVOAT 



IJOB NUMBER THE ONE TO ATTACH? 
lYES, IS DDE ATTACHED TO JOB? 
INO, KEEP LOOKING, 
IIS DOB DETACHED FROM LINE? 

lYES. OK TO ATTACH TTY OF REQUESTER TO JOB 
INO, GET TTY DEVDAT OF JOB DOING ATTACH COM. 
I AS PUSHED BY COMMAND DECODER 
) IPHYSICAL NAME OF REQUFSTOR TTY 
I CHECK IF DPR IS REQUESTOR 
INO, ERROR RETURN, CAN'T ATTACH 

lYES, Save line characteristics 

LINE NO, OF TTY BEING GRABBED 
lOPERATOR'S LINE NUMBER? 
IIS OPERATOR TRYING TO GRAB HIMSELF? 
I IF YES, 00 NOT DETACH HIM 
IDETACH TTY OF JOB BEING GRABBED BY DPR 
(RESTORE LINE CHARACTERISTICS 
ISAVE NEW OOP ADDRESS, 



SCNSRF 
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1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 



PI01074 
7101075 
001076 
001077 
001100 
001101 
001102 
001103 
0011(14 

001105 
001106 



2003'"2 
260140 
262140 
1372.T0 
1372.,''0 
2050»0 
4130^6 
205040 
254000 

200302 
2540(^0 



001026' 

001141' 

000206 

000001 ' 

001047' 

002000 

00001^2 

020000 

002305' 

001074' 
001077' 



TTVAT3I 



TTYAT4: 



MOVE DEVDAT.TTYTABaiND 
PUShJ PDP.TTYOET 
POP PDP.nEVDAT 
nPP ITEM,TPcjOr;m 
nPP iTEM.PJORN 
"OVSI lOS.TTYOTC 
ANinCAB lOS.DEVinStDTB) 
"O^Sl TAC.TTYATC 
JRST SCNlN 



iOETACH nOB PROM TTY 

(STORE ATTACHED JOB NO. 

ISET JOB NUMPER. 

IINOICATE DOB NO LONGER DET, FROM LINE 

ISET ATTACHED BIT 
ISO INITIALIZE ODB 



MOVE DEVnAT,TTYTAB(LINE) [RESTORE OLD DOB ADDRESS. 
JRST TTYAT3 



IFE FTATTACH,< 

TTYATTl LDR LINE.PUNIT 

nPB ITEM.TPCJOBN 
DPB ITEM.PJOBN 
MOVSI TAC.TTYATC 
JRST SCNIN> 



(LINE NO. OF THIS TTY 
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R CLEMENTS/RCC TS 03 JUN 69 

1:L38 ;ROUTINE TO SETUP AC DEVOAT TO ADDRESS OF TTY WHICH HAS TYPED A COMMAND 

linv iAC OAT TO BYTE POINTER TO OUTPUT BUFFER FOR COMMAND MESSAGES 

l:M0 IAC TAC TO BYTE POINTER TO CMMAND STRING 

1141 JAC ITEM TO JOfl NUMBER TTY IS ATTACHED TO 

114^ ICALL! PUSHJ PDPfTTYCOM 

1143 i NONE FOUND 

1144 ! AC'S SETUP 

1145 (CALLED FROM COMMAND 
114 6 

1147 INTERNAL TTYCQM.TTYCM 

1148 EXTERNAL MTTYLN, T TYTAB , CPOP J 
1149 

1150 0011f"7 3311"I0 000526' TTYCOM: SKIPL LINE.LINSAV 

1151 001110 205lfl0 000033' MOVSI LlNEiMTTYLN 

1152 001111 331042 001105' SKIPL TAC , TT YT AB (L I NE ) 

1153 001112 253100 001111' TTYCMl: AORJN LINE..-1 

1154 001113 2021^10 000526' MOVEM LINEiLINSAV 

1155 001114 3271W0 001013' JUMPG LINE.CPOPJ 

1156 001115 550302 001111' HRRZ DEVDAT , TTYTAB ( L I NE ) 

1157 001116 322300 001136' JUMPE 0DR.TTYCM2 ITHIS SHOULDNT HAPPEN, BUT,.. 

1158 001117 201246 000013 MOVEI DAT , TT I BUF C DOB ) ISO GETCHR CAN BE CALLED FROM COMCON 

1159 001120 200106 000017 MOVE L I NE , T 1 TCTR ( DDB ) 

1160 001121 137100 000005' OPB LINE.PCOMIC (SAVE COMMAND INPUT COUNTER 

1161 001122 135l'^0 001066' LDB LINE.PUNIT ILlNE NO. 

1162 001123 135200 001100' LOB ITEM.PJQBN IJOB NO, TTY ATTACHED TO 

1163 001124 607040 200000 TLNN TAC, 200000 US THIS A DELAYED COMMAND? 

1164 001125 254000 000757' JHST CPOPJl INO, RETURN TO SCAN IT 

1165 001126 205040 200000 MOVSI TAC, 200000 I INDICATE NO LONGER DELAYED COMMAND 

1166 001127 412042 001115' ANDCAM TAC , TTYTAB ( L I NE ) 

1167 001130 264000 001125' JRST CPOPjl IRETURN TO COMMAND SCAN 
1168 

1169 001131 205300 200000 TTYCMi MOVSI DDB, 200000 ) INDICATE DELAYED COMMAND 

1170 001132 437302 001127' lORB DDB , TTYTAB ( L I NE ) 

1171 001133 260140 001154' PUSHJ PDP.TRESCN IBACK UP TO START OF COMMAND 

1172 001134 200100 000526' MOVE LiNEiLlNSAV (TRESCN HAS CALLED STLNAC 

1173 001135 254000 001112' jRST TTYCMi ILOOK FOR OTHER COMMAND TO PROCESS 
1174 

1175 001136 205300 600000 TTYCMZt MOVSI DDB, 600000 ICLEAR COMMAND BITS IN TTYTAB 

n.76 001137 412332 001132' ANDCAM DDB , TTYTAB ( L INE ) 

1177 001140 254000 001107' JRST TTYCOM )G0 TRY AGAIN 



SCNSRF 



1178 
1179 
11B0 
1181 
1182 
1183 
1184 
11B5 
1185 
'1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 

1197 
1198 
1199 
12(10 
12^1 
1202 
12H3 
12514 
12JI5 
1205 
12P7 
12B8 
12(^9 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1216 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
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001141 
001142 
001143 

001144 
001145 
001146 

001147 
001150 
001151 
001152 
001153 



001154 
001155 
001156 
001157 
001160 
001161 
001162 
001163 
001164 
001165 
001166 
001167 

001170 
001171 
001172 
001173 
001174 
001175 
001176 
001177 



205040 
616046 
25401^0 

205000 
4360(«6 
2540!»0 

205000 
412006 
205000 
4120^6 
254000 



135040 
202046 
260140 
202046 
200046 
700600 
274046 
337000 
271040 
202046 
700600 
254000 

260140 
402006 
201246 
260140 
322400 
260140 
254000 
603040 



IFN FTATTACH, < 

)ROUTINE TO DETACH TTY FROM JOB 

(CALL! MOVE DEVDAT, ADDRESS nf TTT DOB TO BE DETACHED 

; PUSHJ POP.TTYDET 

ICALLEO FROM TTYaTT AND COMCON (DETACH), 
;CLEAKS TTYATC AMD TRANSLATOR TABLE ENTRY, 
ISETS TTYDTC IN DEVIOS(DDB) 



INTERNAL TTYDET 
EXTERNAL PUNIT,TTYTAB 



020000 
000004 
001147' 

002000 
000002 
001267' 

002020 
000002 
400000 
000011 
001244' 



000005' 

000017 

001207' 

000016 

000015 

000400 

000017 

000001 

000120 

000020 

000200 

001324' 



TTYDETl MOVSI 
TDNN 
JRST 

MOVSI 

lORM 

JRST 



TTYDTlI 



MOVSI 

ANDCAM 

MOVSI 

ANDCAM 

JRST 



INTERN TRESCN 

TRESCN! LDB 

MOVEM 

PUSHJ 

MOVEM 

MOVE 

CONO 

SUB 

SKIPG 

ADDI 

MOVEM 

CONO 

JRST 



TRESCll 



001154' TRESCU! PUSHJ 

000012 SET2M 

000013 MOVEI 
000124' TRESCLt PUSHJ 
001154' JUMPE 
000160' PUSHJ 
001173' JRST 
024000 TLNE 



TACTTYATC 

TACDEVMODCDOB) 

TTYDTl 

IDS, TTYDTC 

lOS.DEVIOSlDDB) 

TTYKLl 

I0S,TTYDTC*IO 

IQS,DEVIOS(ODB) 

IQS.TOIP 

IOS,TTYPTR(OOB) 

TTYKIL 



lis THIS DOB WORTH KEEPING? 
INO. GO JUNK IT 

rYES, MARK IT DETACHED 

IGO CLEAR TTYTAB AND OEVNAM 

(CLEAR SOME BITS TO FORCE KILL 

(ALSO TYPEOUT IN PROGRESS 

ITTYKIL WILL NOW KILL DDB 



TACPCOMIC IGET OLD TITCTR 

TAC,TITCTR(DOB) IRESTORE IT 

PDP.TBYTEP 

TACTITAKRIDOB) 

TACTIPCTRIDDB) ICALLED HERE FROM tU CODE 

PIiPIOFF 

TAC,TITCTR(DDB) 

TAC 

TACTTYCHR 

TAC,TIFCTH(ODB) 

PIiPION 

STLNAC 

POP, TRESCN 

TISYNC(DOB) 

DAT,TTIBUF(ODB) 

POP.GETCHR 

CHREC. TRESCN 

PDP.SPCHEK 

THESCL 

TAC,FCSBRK*BREAKB 
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1231 
1232 



Pi012!"i; 
1"0]2(»1 



3I500'?'6 
251|3.>0 



V,\i\ 173' 



4QS 
JNST 



TISYNjC(nOB) 
TKESCL 



SCMSRF 
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1233 


P'012;!2 


350700 


00(3<5H0 TLHBYT! XivD 


350770,0 


1234 


(1012[»3 


2607P0 


00!'0>10 


Xt-n 


260700,0 


1235 


?|012'"4 


1707t"0 


00!»000 


XWO 


1707!«0,0 


1236 


P'012K5 


10075^0 


008000 


XWH 


100700,0 


1237 


e012P6 


0107K0 


0051000 


XW^ 


0107!10,0 


1238 












1239 


(?012?i7 


261140 


0000!12 TBYTEPi PUSH 


PQP.TACl 


12413 


{"01210 


2130'/0 


0000^1 


MOVNJS 


TAC 


1241 


I»|01211 


3350C0 


00?0JI1 


SKIPGE 


TAC 


1242 


5)01212 


271040 


000120 


ADDI 


TACTTYCMR 


1243 


001213 


231040 


000005 


IDIVI 


TAC, 5 


1244 


001214 


270046 


000013 


ADO 


TACTTIBUFtorB) 


1245 


001215 


500042 


001202' 


MLL 


TACTLHBYTtTAClJ 


1246 


001216 


262140 


000002 


POP 


PDP.TACl 



1247 001217 263140 000000 



POPJ 



iSAvr LINE 



(RESTORE LINE 



POP,0 
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1248 

1249 iROUTINE TO FIND TTY FOR A JOB 

1250 ICALLi MOVE ITEM, JOB NUMBER 

1251 I PUShJ PDF, TTYFNin 

1252 ) RETURN WITH DEVDAT SFT TO AOR OF DOB 

lasS I AND TAT SET TO BYTE POINTER TO MONITOR OUTPUT BUFFER 

12'i4 

12'i5 INTERNAL TTYFNU. TT YFMQ , TTYERP 

1256 EXTERNAL JOB 

1257 

12'58 

1259 

12^10 ("01220 ?002f"0 000000 TTYFNUl MOVE ITEM, JOB 

12fil 001221 260140 001275' TTYFnD! PUSHJ PDPiTTYSRC 

1262 001222 201246 000041 TTYOATi MOVEI OAT , TTOBUF ( DDB ) 

1263 001223 263140 00a0pi0 POPJ POP, 
1264 

1265 

1266 iPUT JOB IN ID WAIT IF TTY BUFFER NOT EMPTY 

1267 (CALLED BY NON ERROR MESSAGE ROUTINES AT UUQ LEVEL 
1268 

1269 INTERNAL TTYFUW 

1270 EXTERNAL KSYNC 
1271 

1272 001224 260140 001220' TTYFUWi PUSHJ PDP,TTYFNU 

1273 001225 200046 000042 MOVE T AC, TOPUTR ( DDB ) 

1274 001226 607100 400000 TLNN LINE.PTYLIN 

1275 001227 316046 000044 CAMN TAC. TOTAKR ( OnB ) 

1276 001230 263140 000000 POPj PDP, 

1277 001^31 201000 010000 MOVEI lOS.IOACT lYES 

1278 001232 437006 000002 lORB I OS , DEV I OS ( DOB ) 

1279 001233 254000 000713' JRST WSYNC 
12P0 

1281 (ROUTINE TO INDICATE MONITOR ERROR MESSAGE TO BE FORCED OUT 

1282 ;WHEN NO MORE ROOM IN TTO BUFFER, TTI BUFFER WILL BE USED 
1283 

1284 001234 260140 001275' TTYERP: PUSHJ PDP.TTYSRC IFIND TTY DOB 

1285 001235 201000 400000 MOVEI lOS.MERTPO ISET MONITOR ERROR PRINT OUT BIT 

1286 001236 4370K6 000002 lORB I OS , OEV I OS ( DDB ) 

1287 001237 264b;'0 000055' jRST SETBFI ICUEAR TTI BUFFER 
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1288 
12fl9 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
13H0 
1301 
13(12 
1303 
13<14 
ISPIS 
13!16 



H01240 2010P!0 

K01241 205040 

001242 6120^6 

001243 2540P0 



767777 TTYRELl hlQVEI I OS , 777777- 1 TACT 

020000 MCVSI TACTTYATC 

000004 TONE TACnEVMQDlDDB) 

000547' JRST T0POPJ 



ICLEAR INITEC STUFF IN lOS 



IGO CLEAR OUT lOS BITS 



;ROUTINE TO SET SCNSER TO RETURN TTY TO VIRGIN STATE 
(CALL' MOVE DOB, ADDRESS OF DEVICE DATA BLOCK 
1 PUShJ POP.TTYKIL 

CALLED FROM COMCSS (JOBKIL),' 

IF NOT OPERATOR CONSOLE. THEN 

DCLEAR PHYSICAL AND LOGICAL NAMES. 
2)CLEAR JOB NUMBER ASSIGNMENT 
3) CLEAR TTYUSE.TTYATC.ASSCON.ASSPRG, 
4)CLEAR ENTRY IN TRANSLATOR TABLE, 



13C7 
13'? 8 
13'il9 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1325 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 



INTERNAL TTYKIL 
EXTERNAL PJOBN.PTMNMO 



001244 
001245 



001246 
001247 
001250 

001251 
001252 
001253 
001254 
001255 
001256 

001257 
001260 
001261 
001262 
001263 
001264 
001265 
001266 
001267 
001270 
001271 
001272 



2050(»0 
4120f6 



205000 
137000 
437006 

260140 
603100 
250140 
331006 
603000 
253140 

513005 
621100 
603100 
621100 
502102 
403046 
200040 
412046 
1351«0 
402002 
402006 
263140 



423101 
000002 



000400 

001123' 

000002 

001324' 

400000 

000000 

000011 
000020 
000000 

000002 

000043 

040000 

000036 

001040' 

000005 

002345' 

000004 

001122' 

001137' 

000000 
000000 



TTYKILt MOVSI 
ANDCA 



IOS,TTYI0W*IOW 
M lOS.OEVIOSCODB 



MOVSI 

DPS 

lORB 

PUSHJ 

TLNE 

PUSHJ 

SKIPL 

TLNE 

POPJ 

HLLZS 
. TL? 
TLNE 
TL2 
HLLM 
SETZB 
MOVE 
ANDCA 
TTYKLli LDB L 
SETEM 
SETZM 
POPJ 



lOS.TPMON 
lOS.PJOBN 
I0S,0EV10S<00B 

PDP.STLNAC 

LIME.PTYLIN 

PDP.PTMNMO 

TTYPTRtODB) 

lOS, 10 

POP. 



♦TTYDTC*SYNC*DDTM*USRB 

ICUEAR TTY INPUT AND OUTPUT 
) IWAIT BITS SO TTY WILL BE KILLED 

IPROPERLY AT INTER. LEVEL IF STILL OUTPUTING 
1 ALSO CLEAR DDT MODE AND SYNC FOR 
I NEXT USER OF THE DDE 

ICLEAR JOB NUMBER 



) ITURN TPMON ON IN CASE TTY IS 

ISTILL OUTPUTTING 
I5ET LINE CHARACTERISTICS 

lYES. PUT PTY INTO MONITOR MODE 
ICHECK TOIP 
IIS IT OUTPUTTING OR TALKING? 

lYES. ODB WILL BE KILLED AT 
•INTERRUPT LEVEL 
DEVI0S(0D3) ICLEAR INITTED STUFF IN lOS 
LINE.KILMSK ICLEAR BITS IN LINE TABLE 
LINE.OSOTLN lOATAPHONE? 
LlNE.LGLSET UNITIALIZE OTHER MODES 
LlNE.LINTAB(LINE) 
TAC.DEVLOG(DEVDAT) ICLEAR LOGICAL NAME 
TAC.tXWD TTYUSE*TTYATC.ASSCON*ASSPRG] 

M TAC.DEVMOD(OEVDAT) ICLEAR ATTACH. USE. AND ASSIGN BITS 
INE.PUNIT ILINE NO. 

TTYTAB(LINE) ICLEAR TRANSLATOR TABLE 

DEVNAMIDOBI 
PDP.0 
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13i£ 
1341 
1342 
1343 
1344 
13<5 
1346 
134 7 
1348 
1349 
13'>^ 
1351 



HOUTIN'E Tn Sll TTY INTO USEP MOHE NOW, 
C4LLi "OVF CFV^AT.ADHRESS "F DEVICE OATa BLOCK 
pUShj pCP.TTySET 

iCALLED FROM RUNiCSS (STARTl) 

JCLEAHS DOTM, inSliPR.ijSRB.TTYIOW AND lOW 



INTERNAL TTY?ET 

("01273 2050f»0 4013JJ1 TTYSEl! MOVSI 
f01274 254HP0 000547' JRST 



I05,nDTM+I0SilPR + USRB + TTYI0W4-!0W 

■^epopj ;go tlear bits 



SCNSi'F 



13S2 
13')3 
13¥4 
13'5S 
)3S6 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1359 
1370 

1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
138(3 
13fll 
1382 
13R3 
1384 
1385 
1386 
1387 
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1101275 
PI01276 
001277 
C013I30 
f013Bl 
^013f2 
001303 
PI01304 
I2l013f!5 

0013^6 
0013ei7 
001310 
PI01311 
PI01312 
001313 
001314 
001315 
001316 
001317 
001320 
001321 
C01322 
001323 
001324 
001325 
001326 



3222i'0 
205in;0 
5503H2 
3223"0 
135040 
306044 
2540B0 
263l"i0 
205040 

260140 
334040 
264000 
326040 
2013^0 
33201^6 
264000 
201100 
550302 
326300 
205040 
260140 
255240 
200006 
1351!10 
500102 
263140 



001306' 

001110' 

001270' 

001304' 

000001' 

000000 

001323' 

001277' 

576062 

000000 

001063' 

001323' 

001321' 

000437 ' 

000000 

001323' 

000042' 

001277' 

001323' 

436471 

002226' 

000000 

000002 



INTERN STLNAC 

EXTERNAL JOB.MTTYLN.TTYTAa.DEVPHY.nEVOPR.ERROR 

;ROUTINE TO SEARCH TRANSLATOR TARLE FOR TTY 

JCALL! MOVE ITEM, JOB NUMBER 

! pushj POP.TTYSRC 

; RETURN WITH ADDRESS nF DEVICF DATA BLOCK IN OEVDAT, 



TTYSRCl JUMPF ITEM.TTYFl iSEARCH FOR OPFR. TTY IF JOfl Nf) , 

MOVSI LINE.MTTYLN INUMRER OF TTY DDBS 
TTYSRAl HRRjf DEVDAT,TTYTAB(LINF) 

.JUMPF OEVDAT.TTYF0 

LDB TAC.TPCJOBN 

CAIN TAC, ( ITEM) 

JRST TTYF9 IFOUND 

TTYF0: AOBJN LInE»TTYSRA 
TTYFi: MDVSI TAC. 576062 ILOOK FoP DEVICE "OPR" 



pushj pdp.devphy 
rkipa tacdevqpr 

jRST TTYF9 
JUMPN TAC.TTYF3 
nOVEI DDP.TTYLST 
SKIPE DEVNAM(DDB) 
TTYF9 
UINE.TCONLN 



ISEARCH PHYSICAL DEVICF 
INOT FOUNDi 



JAMES FOP OPR 



JRST 

MOVEI 

HRRZ 

JUMPN 

MOVSI 



TTYF3! 



TTYF91 



d08,TTYTAB(LINE) 

D0B,TTYF9 
TAC.tSIXBIT /CTY/) 
PUSHJ PDP.GETDDS 
JSP OAT, ERROR 



IWAS OPR SPECIFIED IN CNCE ONLY CODE? 

I NO 

IHAS A TTY BEEN TYPED ON? 

iNO USE CTY, 

IDOES IT HAVE A HOB? 

)YES. USE IT. 

INO 
IGET A DOB FOR OFVOPR 
•SHOULD NEVER HAPPEN 



001267' STLNAC: 

001263' 

000000 



MOVE lOS.nEVIOStDDB) ISET UP lOS 

LDB LlMEiPUNIT IGET UNIT # FROM DOB 

HLL L INE.LINTAB(L INE) SAND LINE BITS 

POPJ PDP,0 [RETURN 
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l^fS ;ROUTINE TO START TTY OUTPUT AFTER CLEARING USRB 

13a9 

1390 EXTERNAL PTMMMD ■ PTMNMZ 

1391 

1392 INTERNAL TTYSTC , TTYTCM 

1393 

1394 001327 TTYTCM! 

1395 001327 205040 000100 TTYSTC! HOVSI TAC-USRB ICLEAR BIT IM MEMORY 

1396 ("01330 412H46 000002 ANDCAM TaC • QEV I OS ( OOP ) 

1397 001331 260140 001324' PUShJ PDP.STLNAC 

1398 001332 603100 400000 jim LiNEiPTYLIN 

1399 001333 260140 001253' PUSHJ PDP.PTMNMD 
1400 

1401 (ROUTINE TO 5TART TTY OUTPUT 

^^^'^ ICALL' MOVE OAT, BYTE POINTER TO LAST OUTPUT ITEM 

l^''^ i MOVE DEVDAT, ADDRESS OF TTY DOB 

l''"'' I MOVE ITEM. JOB NUMBER KMUST BE PRESERVED) 

1405 I PUSHJ PDP,TTYSTR 

1406 

1407 ICALLED FROM COMINI 

l^'S (INITIALIZED TTY FOR MONITOR OUTPUT AND STARTS OUTPUT 

1409 

1410 INTERNAL TTYSTR 

1411 EXTERNAL CLRRYT 
1412 

1413 001334 200000 002346' TTYSTR) MOVE I OS , CXWD OOTM* lOSUPR* I OBEG* I 0*TPMON ■ I ODTER+ I OBKTL* I GNOR + I OArT ] 

1414 001335 413006 000002 ANDCAB I OS , OEV I OS ( DOR ) 

1415 001336 260140 001324' PUSHJ PDP.STLNAC IGET LINE CHARACTERISTICS 

1416 001337 325100 001342' JUMPGE LlNE.TTSTRl IIF NOT PTY, JUMP 

1417 001340 603000 000100 TLNt lOS.USRB 

1418 001341 260140 000000 PUSHJ PDP.PTmNME 

1419 001342 205040 000420 TTSTRli MOVSI TAC.IO+TPMON 

1420 001343 603000 00!?100 TLNE lOS.USRB IGDING OUT OF MONITOR MODE? 

1421 001344 621040 000400 TL2 TAC.TPMON lYES 

1422 001345 436046 000002 JORM TAC, OEV I OS ( 0^8 ) 

1423 001346 205040 000500 MOVSI TAG , USRBtTPMnN 

1424 001347 603000 000100 TLNE lOS.USRB 

1425 001350 412046 000002 ANDCAM TAC. OEV I OS ( DDB ) 

1426 001351 200006 000002 MOVE I OS . DEV I OS (DOB ) (GET CORRECT I OS 

1427 001352 333006 000012 SKIPLE TISYMC(ODB) rHAS USER TYPEO AHEAD? 

1428 001353 260140 001572' PUSHJ PDP.COMSET lYES. WAKE UP COMMAND DECODERCIF IN MON. MODF) 

1429 001354 254000 000652' JRST UTYPFT |G0 TYPE FIRST CHAR, 
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1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
14413 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 

1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1450 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 



1^01355 
P01355 
001357 
001360 
001361 
001362 
C)01363 

001364 
001365 
001366 
001367 
001370 
001371 
001372 
001373 
001374 
001375 
001376 
001377 
001400 
001401 
001402 
001403 
001404 
001405 
001406 
001407 
001410 
001411 
001412 
001413 
001414 
001415 



260140 
263140 
200046 
607040 
263140 
2000f'6 
2001M3 

2001^2 
200046 
312100 
316040 
254000 
6030i10 
607000 
263140 
700600 
135100 
205040 
1354W0 
616042 
5504P'0 
436042 
250333 
135100 
1374!?0 
505100 
437iri2 
202100 
250303 
135100 
137040 
700600 
254000 



IROUTINE TO Aon TTY TO TALK RING 

;CALL! ADR. OF ODB TO BE ADOEO TO RING AT -3(P0P) 

1 MOVE TACSIXBIT /TTY"/ 

1 PUSIHJ PUP.TTYTLK 

i TTY IS SUSY RETURN OR NOT A TTY OR TOO BIG A LINF NO. 

1 OK RETURm, TTY AODFO TO TALK RING 

INTERNAL FTTALK 
IFN FTTALK. < 
INTERNAL TTYTLK 
EXTERNAL PUNIT.CPOPJI 



002226' 

000000 

000004 
000010 
000000 
000002 
777775 

000000 

000000 

001307' 

001366' 

001374' 

000400 

000004 

000000 

000000 

001324' 

000001 

000003' 

001325' 

000002 

001400' 

777775 

001375' 

000003' 

000001 

001402' 

000001 

777775 

001404' 

000003' 

000000 

001130' 



TTYTLKi 



TTYTKl: 



UN CASE NOT SET UP 
(NONE AVAIL, GIVE UP 



PUShJ POP.GETOnB 

POPJ PDP.0 

MOVE TACDEVMOntnEVQAT) 

TLNN TAC.OVTTY 

POPj POP, 

MOVE 10S,UEVI0S(DEVD4T) US TTY IN MONITOR MODE AND LEFT HAND HARGIN? 

MOVE TAC1,-3(PDP) ITTY GIVING TALK COMMAND 



MOVE 
MOVE 
CAME. 
CAMN 
JRST 
TLNE 
TLNN 
POPj 
CUMO 



TAC1,DEVNAM(TAC1) 
TAC,nEVNAM(DEVDAT> 



TACl.DEVOPR 
TACDEVOPR 
TTYTKl 
lOS.TPMON 
lOS.IOFST 
POP, 

PI .SCNOFF 
LDB LINE.PUNIT 
MOVSI 
LDB 
TDNN 
HRRZ 
IORM 
EXCH 



) ITS NAME 

!OPR IS NEVER TOO BUSY, 



lEITHER ONE OPRJ 



INO, HE IS OUSY. 



(LINE NUMBER IN RING. 

TACTLKRNG 

CHRECiPTALK 

TAC,LINTAB(LINE) 

CHRECLINE 

TAC,LINTAB(LINE) 
DDB,-3(PDP) (GET DDB OF TALKER 
LDB LINE.PUNIT ILINE NO. OF TALKER 

DPB CHREC.PTALK ;SET TO POINT INTO RING 

HRLI LINE,TLKRNG 
lORB LiNE.LINTABtLINE) 

MOVEM LINE. TAG ISAVE LINE NO, OF TALKER 

EXCH D0B,-3(PDP) (RESTORE 
LDB LINE,PUNIT (LINE NO. IN RING AGAIN 

nPB tacptalk (maof it point to talker 

CONO PI.SCNON 

jRST CPOPJl (OK RETURN 
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1476 
1477 
1478 
1479 
14B0 
1481 
1482 
14HJ! 
14fl4 
1485 
1486 
1487 



(ROUTINES TO SET SCANNER TO START UP JOB WHEN OUTPUT FINISHES 

SCALLI '^OVE OEVDAT.TTY DDB AOR. 

I PUShJ PDP.TTYUSR 

i TTY WILL GO TO USER "OOE WHEN TYPING OUT STOPS 

EXTERNAL SETRUM 

INTERNAL TTYUSR 



C01416 2050'10 000100 TTYUSRi MOVSI lOSiUSRB 
001417 436006 0650002 lORM I OS , OEV I OS (OOS ) 

001420 254000 000000 JRST SETRUN 



ISET BIT TO SWITCH TTY TO USER MODE 

IWHEN MQMITnR OUTPUT FINISHES 

IGO FLAG JOB AS RUNA8LE IMMEDIATELV 



SCNSBF 


14P8 


14S9 


1 4Q0 


1401 


1492 


1493 


1494 


1495 


1496 


1497 


1498 


1499 


157!0 


15C1 


15C2 


ISJiS 


15!'4 


15;«5 


15'^6 


15?7 


15^8 


15^9 
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PI01421 712340 00?0ii0 

t)014?2 2546)J0 001421' 

fi014?3 264il70 00?0n0 

001424 201i:»0 001315' 

001425 712340 00?ia40 

001426 254BC0 001431' 

001427 712K40 00'^010 
001430 2540?0 001434' 



001431 2014(10 

001432 712210 
("01433 25405!0 



0000517' 

0002^0 

001602' 



;CTY INTTRRUPT SERVl'-E ROUTINE 

INTERNAL CTYINjT 

EXTERNAL SCNCAV.qcNCMN, TCOML'^' 

ctyimTs ro'JSn TTY.5a 

JRST CTYINT 
JSR SCNSAV 
•^OVEI Ll^JEiTCOK'LN 
CO"Sn TTy,40 
JRST CTYOUl 
OATAI TTY.CHREC 
JRST RECINT 

CTYOUl: '^OVEI CHREC.SCMCMM 
CQMO TTY,200(CHREC) 
JK?T XMTINT 



ITTI OR TTO FLAG? 
INO 
lYES, SAVE AC'S 

iloah line with proper 
;yes. tti Flag? 

INO. 

IRECEIVER INTERRUPT HANDLER 



ICLEAR TTO FLAG. 

(COMMON TRANSMIT INTERRUPT HANDLER 



(SCANNER INTERRUPT SERVICE ROUTINE IS IN SEPARATE DEVICE DEPENDENT SECTION 
EXTERNAL SCNSAV, TC0NLN,TTYTa9 
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1510 








1511 








1512 








1513 








ISl'l 








1515 








1516 


B01434 






1517 


K01434 






151B 


("01434 






1519 








1520 


5«ai434 


606400 


6)00177 


1521 


Bl()1435 


263140 


000000 


1522 


UI31436 


500102 


001407' 


1523 


01)1437 


550302 


001316' 


1521 


001440 


3263!?0 


001443' 


1525 


001441 


260140 


002261' 


1526 


001442 


254000 


001565' 


1527 








1528 


001443 


603l!»0 


010000 


1529 


001444 


254000 


001526' 


1530 


001445 






1531 








1532 


001445 


603120 


000001 


1533 


001446 


254000 


002147' 


1534 








1535 


001447 


2000?6 


000002 


1536 


001450 


405400 


000177 


1537 


001451 


306400 


000003 


153B 


001452 


260140 


002074' 


1539 


001453 


135200 


000000' 


1540 


001454 


201246 


000013 


1541 


001455 


260140 


001665' 


1542 


001456 


137200 


000000' 


3 543 


001457 


502102 


001436' 


154 4 


001460 


200046 


000020 


1545 


001461 


307040 


000012 


1546 


001462 


254000 


001517' 


1547 


001463 


607000 


021000 


1548 


001464 


254000 


0015115' 



;COMMON RECEIVER INTERRUPT FOR ALL KEYBOARD DEVICES 

INTERNAL RECINT, INU32, INJEST 

EXTERNAL COMCNT 

RECINTl 

INUS2I )TAG FOR 1^JTERRUPT SERVICE 

INJESTI JAMOTHER TAG, NOT USED. BUT WANTED BY LOSING DLSINT 



TRN\i 

POPj 

HLL 

Hf>Ri 

MHPH 

PUSHJ 

JRST 

RECINl; TLNE 
JRST 
RECINBI 

IFN FTTALK.< 



RECINi!! 



MOVE 

ANDI 

CAIN 

PUSHJ 

LDB 

MOVEI 

PUSHJ 

DPB 

HLLM 

MOVE 

CAIG 

JRST 

TLNN 

JRST 



CHREC'177 I IGNORE NULLS 

PDP,0 IDISMISS INTERRUPT 

LlNE.LINTAa(LINE) IGET LINE CHARACTERISTICS 

ODB.TTYTABaiNE) IIS THERE A 008 FOR THIS LINE? 

DDB, RECINl lYES, GO ON 

PDP.DDRSRC INO, FIND ONE 

TYPX 

LINE.HLFDPX IHAlF DUPLEX LINE? 

RECHDX IGO SEE WHETHER INPUT OR OUTPUT 

•RETURN FROM RECHDX 



TLNE 
JRST 



LINE.TLKRNG 
DOTALK 



MN A TALK RING? 
lYES, GO TALK 



IOS,OEVIOS(DDB) 

CHREC.177 

CHREC.3 

PDP.CNCTST 

HPOS.PHPOS 

DAT,TTlBUF(DnB) 

PDP.TTEOIT 

HPOS.PHPOS 

LINE.LINTAB(LINE) 

TAC,TIFCTR(ODB> 

TAC,12 

RWARN 

IOS,SYNC*DOTM 

TYPTST 



(SET UP lOS 

)7-B!T ASCII ONLY 

ICONTROL C? 

(YES, SEE IF 2ND CONTROL C 

(PICK UP HORIZONTAL POSITION OF OUTPUT CHAR, 

(USER MODE INPUT BUFFER 

(GO EDIT (AND ECHO) CHARACTER 

(STORE HORIZONTAL POSITION 

(UPDATE LINE TABLE 

(FREE SPACES LEFT 
(ONLY 10 LEFT? 
(YES, GO OUTPUT XOFF 

(WAS A BREAK CHARACTER TYPED? 

(NO, GO SEE IF ECHO NEED BE TYPEO 



SCNSfT 



1549 
1550 
1551 
15'^2 
1553 
1554 
1555 
1556 
1557 
1556 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
15B0 

isei 

1582 
1583 
1584 
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1?01465 
?01466 
001467 
001470 
001471 
001472 
001473 
001474 
001475 
001475 
001477 
I»01500 
1^01501 
("016t!2 
001503 
001504 
001505 
001506 
001507 
001510 
001511 
001512 
001513 
001514 

001515 
001516 

001517 
001520 
001521 
001622 
001523 
001524 
001525 



20a0<'2 

603040 
254000 
337006 
260140 
603000 
3500f6 
2050H0 
413006 
200046 
137040 
627000 
254000 
260140 
205000 
413006 
205040 
700600 
335006 
2540510 
436046 
700600 
260140 
254000 

700600 
263140 

603100 
254000 
201400 
260140 

2014510 
260140 
254000 



RECIN4I 



001437' RECIN3I 

500300 

001472' 

000012 

001572' 

020000 

000012 

020000 

000002 

000015 

000006' 

400000 

001505' 

000611' 

400001 

000002 

400000 

000400 

000011 

001515' 

000011 

000200 

001324' 

001512' 



TYPTST! 



INTERN 

MOVE 

TLNE 

JKST 

SKIPG 

pushj 

TLNE 

AOS 

MQVSI 

ANDCAB 

MOVE 

OPB 

TLZN 

JRST 

PUSHJ 

MOVSI 

ANDCAB 

MOVSI 

CONO 

SKIPCE 

JRST 

lORM 

CONO 

PUSHJ 

JRST 



RFCIN3 IFOR 

TAC,TTYTAB(LINE) 



000200 TYPTl! CONO 
000000 POPJ 



010004 
001465' 
000023 
000144' 

000001 

003144' 

001465' 



RWARNI 



TLNE 

JRST 

MOVEI 

PUSHJ 

MOVEI 

PUSHJ 

JRST 



PTYSRF 

;is it in command wait now? 

not again. 

;has user typed ahead? 

ino, wake up command decoder now 

ibreak character (bump line count) 

ICLEAfi SYNC IN CORE 
! > t 

(UPDATE COUNTER FOR tU 

) IN TELETYPE INPUT WAIT? 

INO, GO ECHO 

lYES. SET 10 DONEtOUT OF TTY lOW) 

•CLEAR WAIT BITS 
(CHECK TOIP 

ITYPFOUT HAPPENING? 

INO, BUT THERE IS NOW 

ITACI CLOBBERED ABOVE BY STTIOD 
ISTART OUTPUT 



TAC, 500000 I . . 

RECIN4 lYES. 

TISYNC(DDB) 

PDP.COMSET 

IOS,SYNC 

TISYNC(DDB) 

IDS, SYNC 

IOS,DeviOS(DOB) 

TAC,TlPCTR<Daa) 

TACPLSTLC 

I0S,TTYI0W 

TYPTST 

PDP, STTIOD 

IOS,IOW+TTYIOW 

lOS,DEVlDS(DnB) 

TAC, TOIP 

PIiPIOFF 

TTYPTRCODBl 

TYPTl 

TAC,TTYPTR(D0B) 

Pl.PlON 

pdp.sTlnac 

XMTlNl 

Pl.PlON 
PDP, 

LlNE,HLFOPX*FULTWX ICAN LINE BE STOPPED? 

RECIN3 INO. WAKE JOB AND CROSS FINGERS, 

CHREC.23 lYES. SEND AN XOFF, 

PDP.PUTCHO 

CHRECIDLECH 

PDP.PUTCHO 

RECIN3 



lAND AN IDLE FOR TTY TO THINK ON, 
(OUTPUT IT. 
IGO MAKE JOB. 
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15a5 
158 6 
15S7 
15 88 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
16K1 
1602 
16C3 
16?4 
16«5 
16R6 
1607 
16P!8 
16W9 
16112 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
162U 
1621 
1622 
1623 
1624 
1625 



IFN ETHDPX,< 

JROUTIME TO HANDLE HALF dUPLEX RECEIVE INTERRUPTS 
iCALLEO ONLY AT RCV INTERRUPT LEVEL 



PI01626 
001527 
("01S30 
001631 
001532 
001533 
001534 
001635 
001536 
001537 
PI01540 
001641 
?01642 
001543 
001544 
001645 
001646 
001547 
001550 
001551 
001552 
001553 
001554 
001555 

001556 
001557 
001560 

001561 
001562 
001563 
001564 



2000''6 
602000 
263140 
622000 
264000 
331006 
254000 
405400 
135040 
316040 
263140 
205040 
412046 
621000 
660000 
201042 
242040 
660040 
505040 
700600 
136040 
700600 
202006 
263140 

200301 
201000 
254000 

405400 
306400 
137406 
254000 



EXTERN CLOCK 
RECHDX! 



echo; 



000002 

200000 

000000 

100000 

001561' 

000011 

001445' 

000177 

000004 ' 

000010 

000000 

400000 

000011 

000020 

300000 

000000 

00001.4 

000036 

001556' 

000400 

000000 

000200 

000002 

000000 



001465' ENOECHI MOVE 
203000 MOVEI 

000547' JRST 



000177 
000003 
000016 
001445' 



RECHDlt ANDI 
CAIN 
DPB 
JRST 



(SETUP lOS 

) IN AN ECHO CHECK? 

lYES, IGNORE THIS 



ISHOULD THIS BE AN ECHO? 
INO. ITS A RECEIVE CHARACTER 
IAN ECHO, CHECK IT 
(GET WHAT WAS SENT 
)SAME7 
lYES. DISMISS INT, 

ITURM OFF TOIP 

(BAD CHARACTER. SHUT DOWN XMT, 
(MARK FOR THE 1/2 SEC IGNORE, 
(SETUP CLOCK REQUEST 

(1/2 SECOND 

(WHERE TO RESPOND TO 

(REQUEST FROM THE CLOCK 

(ONLY AT INTERRUPT LEVEL 
(DISMISS INTERRUPT 



DDB.TTYTAB(TAC) (HERE ON TIMEOUT OF ECHOCHECK 

lOS.IGNOR (KILL IGNORE INT SIT 

T0POPJ (CLEAR BIT IN lOS, RETURN TO CLK 

CHREC.177 

CHREC.3 (tC DURING ECHO CHECK? 
CHREC(TITAKR(DDB) (YES. MAKE IT LIKE 2 OF THEM 

RECIN8 (PROCESS AS INPUT 



MOVE inS,DEVlOS(DOS) 


TRNE 


IOS.IGnOR 


POPJ 


POP, 


TR?E 


lOS.ECHOF 


JRST 


RECHDl 


SKIPL 


TTYPTR(DnB) 


JRST 


RECIN8 


ANDI 


CHREC,177 


LOB 


TACPLASTC 


CAMN 


TACCHREC 


POPj 


PDP,0 


MOVSI 


TACTOIP 


ANDCAM 


TACTTYRTRCODB) 


TL? 


lOS.IO 


THO 


I0S,ECH0F*IGN0R 


i-'OVEI 


TAC,(LINE) 


LSH 


TAC,tDl2 


TRO 


TAC,fO30 


HRLI 


TACENDECH 


CONO 


PI.PIOFF 


IDPB 


TAC. CLOCK 


CONO 


PI.PION 


MOVEM 


IOS,DEVIOS(DDB) 


POPJ 


POP. 



(END OF FTHDPX 
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1626 








1627 








1628 


001565 


405400 


000177 


1629 


001566 


3064!'0 


000130 


1630 


001567 


263140 


000000 


1631 


l?01570 


2014S?0 


000130 


1632 


001571 


254000 


002216' 


1633 








1634 








1635 








1636 


001572 


607000 


000400 


1637 


001573 


263140 


0030PI0 


1638 


001574 


205000 


000004 


1639 


001575 


437006 


000002 


1640 


001576 


205040 


400000 


1641 


001577 


436042 


001556' 


1642 


001600 


35001'0 


00C0?I0 


1643 


001601 


263140 


i? 



iROUTINE TO TYPE X IT LIME CANNOT GET INTO SYSTEM 



TYPX: 



ANDI 


CHREC. 


il77 


CAIN 


CHREC. 


"X" 


POPj 


POP, 




"OVEI 


CHREC. 


" X " 


JRST 


TYPL 





ICHAR, RECEIVED AN "X" 

(YES, MAY PE ECHO. DISMISS INT. 

;type out "X" 



;R0UTINE TD WAKE UP CCMMANO DECODER IF TPMON IS SET 
COMSET I 



TL.NN 


IDS, TPMON 


POPj 


PQP. 


«OVSI 


lOS, lOFST 


lORB 


lOS.DEVIOSfDHB) 


MOVSI 


TAC, 400000 


lORM 


TACTTYTABCLINE) 


AOS 


nOMCNT 


POPJ 


POP, 



JMOMTOR MODEJ 

INO, NOT MONITOR COMMAND 



ISET SIGN BIT 

I IN TTY TRANSLATOR TABLE 

(INDICATE ONE MORE COMMAND 
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1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1554 
1655 
1656 
1657 
1658 
1659 
1660 
16ftl 
1662 
1663 
1664 
1665 
1656 
1667 
1668 



0016!?2 
l«016fJ 
00165»4 
("UI6P15 
0al6?'6 
C^6)16?7 

("01610 
C01610 
001511 
001612 
001613 
001614 
001615 
001616 

001617 
001620 
001621 
001622 
001623 



500i;'2 
5503?2 
322300 
200006 
607100 
254000 



331006 
263140 
201246 
700600 
554045 
313045 
254000 

602000 
302246 
254000 
201246 
254000 



(COMMON TRANSMITTER INTERRUPT FQR SCANNER AND CTY(TTY) 
INTERNAL XMT I NT , PTYGET 



001457' 

001577' 

001114' 

000002 

010000 

001612' 



000011 
000000 
000041 
000400 
000000 
000005 
001643' 

400000 

000041 

001624' 

000013 

001613' 



XMTINT: HLL 
HRRZ 
JUMPE 
^OVE 
TLNN 
JRST 

PTYGET ; 

SKIPL 
POPJ 
XMTINll MOVEI 
XMTIIA: CONO 
HLRZ 
CAMLE 
JRST 

TRNE 

CAIE 

JRST 

MOVEI 

JRST 



Ll'XE.LINTAB(LIMEl 
DDB,TTYTAB(LINE) 
DDB.CPOPJ 
IOS,DEVIOS(DOB) 

LINE.HLFDPX 
XMT IM 



IGET LINE CHAR. 

!GET ODB ADDRESS 

I IF NONE, X BEING TYPED 

iGET 10 STATUS 

IHALF DUPLEX LINE? 

INO, REGULAR TRANSMIT INTERRUPT 



TTYPTR(ODB) 

PDP.0 

DAT.TTOBUFCDDS) 

PI.PIOFF 

TAC,(3UF(0AT) 

TAC.FCTRCOAT) 

XMTIN2 

lOS.MERTPO 



DAT,TTOBUF(DOe) (OUTPUT BUFFER? 



ICALL HERE TO SKIP ABOVE OVERHEAD 
IWAS TYPE-OUT IN PROGRESS? 
1 IGNORE XMT DURING ECHO CK 
(SPECIFY TTO BUFFER 
(KEEP TOIP AND PUTR/TAKR EQUAL 
( IS OUTPUT BUFFER EMPTY? 
(I.E.I FREE COUNT AT MAX? 
(NO, TYPING STILL IN PROGRESS 

(MONITOR ERROR MESSAGE? 



XMTIN4 

DAT.TTIBUFIDDB) 

XMTIIA 



INO, MUST REALLY BE DONE 

(YESi NOW EMPTY OUT TTJ BUFFER 



SCNSRF - St^ANNER AND CONSOLE TELETYPE SERVICE ROUTINE - V415 MACR0,V36 19!l2 4-JUN-59 RAGE 61 

R r:LEMENTS/RCC TS (13 JUN 69 

1669 JHERE WHEN OUTPUT BUFFER(S) EMPTIED. 
1670 

1671 fi01624 201000 400000 yMTIN4| MOVEI lOS.MERTPO 

1672 001625 4130?;6 000002 4NDCAB I OS , DEV I OS ( DHB ) 

1673 001626 205400 400000 MOVS! CHREC.TOIP 

1674 .'501627 4124f6 000011 4NDCAM CHREC . TT YPTR ( DOB ) ICLEAR MERTPO ANO TOIP 

1675 001630 700600 000200 CONO PIiPION 

1676 001631 201400 000000 MOVEI CHREC, 

1577 f01632 135200 001247' LD8 HPOS.PJOBN iJOB NUMBER DDR IS ATTACHED TO 

1678 001633 607000 000020 TLNN IDS. 10 

1679 001634 254080 001654' JRST LlNDON 

1680 001635 205000 000020 MOVSI lOS.IO 

16S1 001636 4130(?6 000002 ANDCAB I OS, DEV I OS { DOB ) 

1682 001637 603li:»0 000001 TLNE LI^JE,TLKRNG I OR TALKING? 

1683 001640 2540^-0 001654' JRST LIMDON lYES 

1694 001641 326200 001654' JUHPN HPOS,LtNDON ILlNE DONE IF 008 IS A JOB 
1685 (OTHERWISE, ODB ONLY USED TO TYPE A 

16S6 001642 254000 001244' JRST TTYKIL IMESSAGEI KILL TTY ODB 
1687 

16S8 001643 700600 000200 XMTIN2! CONO PI.PION 

1689 001644 260140 000124' PUSHJ PDP,GETCHR (NO, GET NEXT CHAR. IN BUFFER 

1690 001645 322400 001612' JUMPE CHREC. XMTINl (IGNORE NULLS 

1691 001646 321000 001663' JUMPL lOS.TYPE (KEEP TYPING IF INPUT I/O WAIT 

1692 001647 60605^0 010000 TRNN lOS.IOACT (ARE WE IN I/O WAIT? 

1693 001650 254000 001653' JRST TYPE (NOT IN 10 WAIT 

1694 001651 201200 000110 MOVEI HPOS , TTYCHR-10 (WAKE 8 CHARS BEFORE END 

1695 001552 311205 000005 CAML HPOS , FCTR < DAT ) (IS THERE ROOM ENOUGH NOW? 

1696 001653 254000 001663' JRST TYPE (NO, KEEP TYPING 
1697 

1698 001654 603000 000001 LINOONI TLNE IOS,IOW (IN ID WAIT? 

1699 001655 603000 400000 TLNE lOS.TTYlOW (YES, TTY INPUT WAIT? 

1700 001656 254000 001663' JRST TYPE (NO, GO TYPE CHAR, 

1701 001657 260140 001502' PUSHJ PDP,STTIOO (YES, SET 10 DONE (OUT OF WSYNiC) 

1702 001660 260140 001324' PUSHJ PDP,STLNAC (RESTORE TACl 

1703 001651 200000 002347' MOVE IOS,CXWD I0W,IOACT3 (INDICATE NO 10 ACTIVE OR WAIT 

1704 001652 413006 000002 ANOCAB I OS , DEV I OS ( DOB 1 
1705 

1706 001663 322400 001604' TYPE( jUMPE CHRECCPOPJ (IS TYPING STILL TO BE IN PROGRESS? 

1707 001664 254000 002216' JRST TYPL lYES, 



SCMSRF - SCANNER AND CONSOLE TELETYPE SERVICE fOuTINF 
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V415 



MACRO, V36 19112 4-JUN-59 PACE 62 



17"i8 
t7?9 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1?17 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 



C01665 
C01656 
(?01667 
001670 
l?01671 
e01672 
001673 
PI01674 
001675 
001676 
001677 
001700 
001701 
00-1702 
001703 
001704 
001705 
001706 
001707 
001710 
001711 
001712 
003713 



001714 
001715 
001716 
001717 
001720 



260140 
254000 
2655000 
603040 
661000 
437006 
321041 
305400 
254000 
607100 
620400 
623100 
260140 
260140 
254000 
607040 
603100 
263140 
251140 
607000 
606000 
260140 
2540fl0 



205000 
413006 
306400 
254000 
201400 



000423' 
0016741 

000000 
024000 
020000 
000002 
000000 

000140 

001700' 

000020 

000040 

000040 

002115' 

000077' 

001714' 

002000 

010004 

000000 

000001 

000400 

000200 

000144 ' 

000374' 



020000 

000002 

000003 

002103' 

000007 



TTY K 
UPON 
WITH 
WHETH 
IT lb 
TYPED 
IN AN 
THE L 

CHARA 
BY SP 
COMME 
TO A 
HALF 
SET 
ASSEM 
CALL 



EYBOAR 

RECEIP 

IT: WH 

EH SOM 

A BRE 

IS A 

Y CASE 

EVFL 

THIS 

CTER T 

ECIFIC 

NTS HE 

"SPECI 

OF THE 

ANn TH 

BLED I 

HAVE 

LDB 

MOVE 

PUSH 

RETU 



n EDI 
T OF 
ETHER 
F OTH 
AK CH 
SI5NA 
. ALL 
F THI 

ROUT 
ABLE, 

CHAP 
SCRIB 
AL AC 

CORR 
F ADn 
f'TO T 

7-BI 
H 

I n 
J P 

RN WI 



TOR ROUT 
A CHARAC 

IT'S A 
ER CHARA 
ARACTER 
L TO UNP 

SPECIAL 
S ROUTIN 
INE CALL 

SPCTAS, 
ACTERS >^ 
ING SPCT 
TIDN ROU 
ESPDNOIN 
RESS OF 
HE RIGHT 
T ASCII 
POS.PHPO 
AT.TTIBU 
DP.TTEOI 
TH ACTIO 



INE 

TER, 

SPECI 

CTER 
(LI'^JE 
ERTAK 
ACTl 
E. 
S SPC 

Ta M 

AKE T 
AB, 

TINE" 
G CHA 
THE S 
HALF 
CHA»A 
S 

F(D"B 
T 
N DON 



THIS ROUTINE DETERMINES WHAT TO 00 
AL CHARACTER NEEDING SPECIAL ECHOING, 
IS TO BE STOREO IN ITS PLACE, WHETHER 

TERMINATOR), OR WHETHER THE CHARACTER 
E SOME SPECIAL ACTION, 
ON, INCLUDING DUPLEXING TAKES PLACE ON 

HEK, WHICH MAKES USE OF THE SPECIAL 
AKE ANY CHANGES IN THE ACTION GENERATED 
HE ALTERATIONS REQUIRED BY THE 
NOTE THAT IF A CHARACTER IS TO DISPATCH 

OP A SPECIAL ECHO ROUTINE, THE LEFT 
RACTFR-WORO MUST HAVE SPACTN 
PECIAL ROUTINE MUST BE 

OF THE WORD. 
CTER IN CHREC 



TTEDlTl 



PUSHJ 

JHST 

"OVSI 

TLNE 

TLO 

lORB 

JUMPL 

TIPACKI CAIGE 
JRST 
TLNN 
TR2 
TL?E 
PUSHJ 
PUSHJ 
JRST 
TLNN 

DUPLEX! TLNE 
POPJ 



TTIPUT! 
TTIPTII 



DUPLXl! PUSH 
TLNN 
TRNN 
PUSHJ 
JRST 

INTERNAL INBFUL 

INBFUL: MQVSI 
ANDCAB 
CAIN 
JRST 
MOVEl 



POP, AD 

TIPACK 

IDS,0 

TACRR 

lOS.SY 

lOS.DE 

TAC,0( 

CHREC. 

TTIPUT 

LINE.T 

CHREC. 

LINE.R 

PDP.8S 

PDP.PU 

INBFUL 

TAC.EC 

IINE.F 

PDP,0 

PDP.TA 

lOS.TP 

IDS, NO 

PDP.PU 

TPOPJ 



JHP 



) 

E, SVNC (LH lOS) SET IF BREAK CHAR, STORED 

(ADJUST HP AND CHECK SPECIAL 
INOT SPECIAL 



EAKB*FCSH 

NC 

VIOSfDOB) 

TAC) 

140 

37 

40 

OBTPO 

ECHO 

TCHI 

HSUP 
ULTWX*HLF 

C 

MON 

ECHO 

TCHO 



HK ;bR£ak char? 

(BREAK CHAR, SET SYNC 
ISET SYNC 

IDISPATCH IF SPACTN SET 
(LOWER CASE LETTER? 
INO 

;YES. IS THIS TTY IN 37 MODE? 
INO. MAKE CHAR UPPER CASE 
IHAVE WE BEEN DELETING? 
lYES. OUTPUT A BACKSLASH 
IPUT CHAR IN INPUT BUFFER 
IIT DIDNT FIT 

ISHOULD THIS CHAR BE ECHOED? 
OPX MS THIS LINE ECHOING ITSEUF? 
IJUST RETURN WITHOUT ECHO 
ISAVF TAC OVER PUTCHO 
ISHOULD ECHO IF IN MONITOR MODE 
lAND UNLESS USER SAYS NO, IN USER MODE 
ISO ECHO IT. 
I«EST0RE TAC AND RETURN 

IFOR THE PTY 



lOS.SYNC IDONT COUNT SYNC COUNT 

lOS.DEVIOSIODB) 1 SINCE CHAR NOT STORED 

CHREC. 3 ICHAR WONT FIT, WAS IT tc? 

CNCTSl lYES. PANIC OUT OF THIS BIND 

CHREC. 7 INO, JUST ECHO BELL TO SHOW LOSS 



SCVSRF - SCANNER Af^D CONSOLE TFLETYPF SESVICT ROnTINr , W415 
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l?*)! !1017?1 2540?0 Pa!))i44i 



JR"?T 



PUTCHO 



"ACR0,V36 19)12 4-JUN-69 OAGE 62-1 
lOUTPUT PE.LL 



SCJS'F 



1762 
1763 
llhA 
]7^5 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
17fl0 
1781 
17B2 
1783 
17S4 
1785 
1786 
1787 
1788 
1739 
17')a 
17<31 
1792 
1793 
1794 
1795 
17 96 
1797 
1798 
1799 
1800 
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MACRO, V36 19112 4-JUtg-69 PAGE 63 



1^01722 
001723 
C01724 
001725 
H01726 

001727 
001730 
?I01731 
001732 
("01733 
001734 
001735 
t!01736 
001737 
001740 



001741 
001742 
001743 
001744 
001745 
001746 
001747 
001750 
001751 

^01752 
001753 
001754 
001755 

001756 
001757 
001760 



260140 
200040 
260140 
260140 
254000 

260140 
205000 
437006 
254000 
603000 
254000 
621100 
260140 
260140 
254000 



541050 
201400 
607000 
606000 
260140 
201401 
606000 
201400 
254000 

641130 
645l(<a 
641100 
263140 

665ll?0 
621130 
254000 



;CALLED WITH A JUMPL TAC.CTAD, HriERF TaC IS LOATED FROM SPCTAB 
ISPECIAL CHARACTER HANDLING ROUTINES 



002142' 
000173' 
002052' 
002042' 
001700' 

000064' 

000200 

000002 

001737' 

001000 

001780' 

000040 

002142' 

002052' 

002042' 



CONTC! PUSHJ POP.DELETL 

MOVE TAC,SPCTAB+3 

CONTRi PUShJ POP.CNTlEC 

PUShJ PDP.CRLFEC 

JRST ttiput 

PDP.SETBF2 

lOS, lOSUPR 

lOS.OEVIOSIDDB) 

CONTUl 

lOS.DOTM 

TTIPUT 

LINE.RCIBTPO 

PUP.nELETL 

PDPiCNTLEC 

CRLFEC 



CONTO! PUSHJ 
MOVSI 

lORe 

JHST 
CONTUl TLNE 
JRST 
TL2 
PUSHJ 
CONTUll PUSHJ 
JRST 



ALTMOIl: 



000000 

000044 

000400 

000400 

002001' 

000000 

000100 

000175 

001700' 

000030 CONTF! 

000010 CONTP! 

000004 CONTBi 
000000 

000032 CONTO! 
000002 CONTS! 
001700' 



HRRI TAC,(CHREC) 

MOVEI CHREC.44 

TLNN lOS.TPMON 

TRNN lOS.DLRSUP 

PUSHJ PDP.AOJDPX 

MOVEI CHREC.(TAC) 

TRNN lOS.FCS 

MOVE! CHREC.175 

JRST TTIPUT 

TLC LINE,T35*T37 

TLCA LINE.T35 

TLC LlNEiFULTWX 

POPJ POP,0 

TLOA LINE.XON 

TL? LINE.XON 

JRST TTIPUT 



ISINCE PEOPLE WANT FREE tu 

iSlNCt DELETL clobbers TAC 

lOUTPUT tC OR tZ 

lOUTPUT A CRLF 

lAND STORE TME 003 OR 032 

(CLEAR THE OUTPUT SUFFER 
ISET TO JUNK FURTHER OUTPUT 

(ECHO, ETC. 

I IN DDTMODE, 

I PASS THIS CHARACTER 

IND MORE BACKSLASH 

ItU DELETES INPUT LINE 

(ECHO to OR tU 

lOUTPUT A CRLF AND RETURN WITHOUT 

1 STORING THE »0 OR tU 

(SAVE WHICH KIND OF ALTMOD 
rECHO A J 

1400 IN lOS REMOVES ECHO OF I 

(RESTORE THE CHARACTER 
(UNLESS FCS MODE, 
(TURN INTO OLD ALTMOD 
(STORE THE CHARACTER 

(COMPLEMENT T37 ON tF 
(COMPLEMENT T35 ON tP 
(COMPLEMENT FULTWX ON tB 
(AND RETURN WITHOUT STORING THESE 

(PAPER TAPE MODE 

(NOT PAPER TAPE 

(DO STORE THESE FOR CUSP 



SCMSHF 
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MACRO, V36 1911? 4-JUN-6'' PACE 64 



1811 
185«2 
1803 
1804 
1805 
1806 
1807 
1308 
18'»9 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 

1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 



001761 
001762 
001763 
001764 
001765 
001766 
001767 
001770 
001771 
001772 
001773 
001774 
001775 
001776 
001777 
002000 
002001 



002003 
002004 

002005 
002006 
002007 
002010 
002011 
002012 
002013 
002014 
002015 
0020]6 
002017 



603100 
254000 
607100 
254000 
205000 
254000 
603000 
254000 
612030 
254000 
260140 
135405 
260140 
254000 
667100 
260140 
344200 



000020 

001700' 

000002 

001767' 

020000 

000547' 

000400 

001773' 

002350' 

001702' 

001765' 

000001 

002121' 

002002' 

000040 

002115' 

001707' 



conth! tlne 

JRST 
RU90UT! TLNN 
JRST 
RUB0U4: ^'OVSI 
JRST 
TLNE 
JRST 
TONE 
JRST 
PUSHJ 
LDB 
PUSHJ 
JRST 
TLON 
PUSHJ 
AOJA 



RUB0U3I 



RUB0U2I 



AOJDPX! 



002002 623100 000040 RUBOUll TL^E 



260140 002115' 
2540510 002042' 



541040 
334000 
541040 
607100 
254000 
260140 
201400 
260140 
602040 
364040 
263140 



000004 CONTK 

000000 

000010 

000010 

002020' 

001700' 

000001 

001707' 

000017 

002014' 

000000 



CONTLi 



CONTIl; 



PUSHJ 
JRST 

HRRI 

SKIPA 

HRRI 

TLNN 

JRST 

PUSHJ 

MOVEI 



SIMFEII PUSHJ 
TRNE 
SOJA 
POPJ 



LINE,T37 

TTIPUT 

UINE.XON 

RUI30U3 

lOS.SYNC 

T0POPJ 

lOS.TPMON 

RUB0U2 

lOS.CXWD D0TM,FCS3 



H3»CKSPaCE 

IJUST PASS TC PROG IF 37 TTY 



) IF PAPER Tape, no break 

)0R STORE, RETURN, 
I IN MONITOR MODE 



NOT A HREAK CHAR 



TTIPTl 
PDP,RUeOU4 



ISTORE RUSOUT IF DOT OR FCS 
INOT A BREAK AFTER ALL 



CHREC.PUTRIDAT) IGET LAST CHAR IN 



POP, nCPUTR 

RUBOUl 

LINE.ROBTPO 

PDP.BSECHO 

HPOS.DUPLXl 

LINE.ROBTPO 

PDP.BSECHO 
CRLFEC 

TAC,4 

TAC.ia 

LINE,T35 

SIMFF 

PDP, TTIPUT 

CHREC. lOLECH 

PDP.DUPLXl 

TAC,17 

TAC, .-2 

PDP.0 



IBACK UP TIPUTR 

I IT'S EMPTY ALREADY 

IMARK IN RUBOUT SEQUENCE 

lANO OUTPUT BACKSLASH IF FIRST 

;OUTPUT AND COUNT HPOS 

lEND OF INPUT STREAH REACHED 

(OUTPUT A BACKSLASH 
I AND A CR LF 

IHERE ON V TAB 

IHERE ON FORMFEED 

ITHIS TTY HAVE VERT MECHANICS? 
INO, SIMULATE IT 
IPUT CHAR IN BUFFER AND ECHO IT 

ISYNCHRONOUS IDLE CHARACTERS 
lOUTPUT ECHO OF lF OR IDL 
IDONE YET? 
INO. OUTPUT MORE 
lOONE 



SC^SnF 
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1875 


5"0???0 


661040 


0020;?0 


18:^6 


fi02BPl 


26tll40 


0017i10' 


18.^7 


Pi 132022 


2014;)0 


000012 


18:58 


!^02023 


2540/0 


002014' 


1339 








1940 


R02024 


6071,10 


003010 


1841 


f 02l»25 


661^40 


002000 


1842 


P102026 


?6ai40 


001700' 


1843 


C102027 


603l!»0 


100002 


1844 


P!02030 


253140 


000000 


1845 








1846 


H02031 


541040 


000001 


1847 


(?02032 


6031l"0 


000010 


1848 


002033 


254000 


002013' 


1849 








IS-'B 


002034 


2014;i0 


000040 


1851 


002035 


1352(10 


000000' 


1852 


002036 


260140 


002001' 


1853 


(^02037 


6022C0 


000007 


1854 


fl0?040 


2540^0 


302036' 


1855 


002041 


263140 


000000 



^I^FF! 



CONTI I 



C0MTI2! 



TUO 
PUShJ 
"OVEI 
JKST 

TL"'N 

TLO 

FUSHJ 

TL>JE 

PQPj 

KRRI 
TLME 
JKST 

KOVEI 

1,DR 

PUSHJ 

TRNE 

JRST 

POPJ 



TACECMSUP 
POP.TTIPUT 
nH'^EC.12 
SIMFFl 



MACRO, V36 19!12 4-JLIN-59 PAGE 65 



(DON'T OUTPUT FF OR VT TO A 33 
IPLIT IT IN t3UFFER 
fSIMULATE WITH LF'S 



LINE,T35 

TACFCMSUP SOONT OUTPUT TAB TO 33 

FDP.TTIPUT !PUT IN PUFFER AND MAYBE ECHO 

UlNE,XON*OISLIN )IF PAPER TAPE. DISMISS 

PDP.0 I SO AS NOT TO OVERFILL OUTBUF 

lALSO. DISPLAY OOESNT WANT FILLER 

TACl )TWO IDLES 
LINE,T35 

CONTU !G0 SEND SLUFFS 

CHREC,40 (SPACES FOR THE 33'S 

HPOS.PMPOS (WHERE WAS I BEFORE TAB? 

POP.AOJOPX (OUTPUT A SPACE 

MP0S.7 (AT 4 TAB STOP? 

,-2 (NO. MORE SPACES. 

POP.?i (RETURN FROM TTEDIT 
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1856 ("02042 20121^0 00(1000 CRlEEC; MOVE I UPOS,0 lECH" A CR LE, SAVING CHREC 

1857 002043 261140 00(»010 PUSH PDP.CriREC 

1858 !»02044 2014(10 000013 wQVEI CHREC. 15 ICARRIAGE RETURN 

1859 002045 260140 001707' duSHJ pDP.DUPLXI (OUTPUT IT 

1860 002046 201400 000012 "OVEI CHREC. 12 ILINE FEED 

1861 002047 260140 001707' pUSHJ PQP.DUPLXl (OUTPUT THAT TOO 

1862 002050 262140 003010 CHPOPJI POP POP, CHREC IHESTORE CHREC 

1863 002051 263140 000000 pqPj PUP,0 
1864 

1865 002052 541050 000100 CNTLECl HRRI TAC , 100 ( CHREC ) ISAVE UN-CNTL CHARACTER 

1866 002053 201400 000136 «OVEI CHREC. "t" 

1867 002054 260140 002001' PUSHJ PDP.AOjDPX 

1868 002055 201401 000000 MOVEI CHREC. (TAC) I TYPE » CHAR 

1869 002056 260140 002001' PUSHJ POP.AOJDPX 

1870 002057 620400 000100 TR? , CHREC. 100 (RESTORE IT TO A CNTL CHAR 

1871 002060 263140 000000 POPJ ■ PDP.0 
1872 

1873 002061 201200 000000 CRLF: klGVEI HPOS.0 (HERE ON INPUT OF A CARRIAGE RFTURN 

1874 002062 603100 000002 TLNE LINE.XON IIF PAPER TAPE. NO FREE LF 

1875 002063 254000 001700' JRST TTIPUT IJUST STORE THE CH 

1876 002064 260140 001700' PUSHJ PPP.TTIPUT lORDINARILY. STORE AND GO ON HERE 

1877 002065 20147'0 000012 MOVEI CHREC. 12 (BY ADDING A LF 

1878 002066 205000 020000 noVSI lOS.SYNC (WHICH IS A BREAK CHARACTER 

1879 002067 437006 000002 IQRB I OS , OE V I OS ( DOB) 

18R0 002070 607100 010004 TLNN L I NE , F ULTMX+MLFDPX (IF NOT SELF ECHOING. 

1881 002071 254000 001700' JRST TTIPUT (THIS WILL GIVE LF ECHO 

1882 002072 260140 001700' PUSHJ POP. TTIPUT (OTHERWISE. THIS WONT 

1883 002073 254000 001707' JRST nUPLXl (BUT THIS WILL 
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ia?4 
18R5 
13''6 
iaP7 

isns 

1890 
1891 
lBt)2 
1893 
1891 
1895 
1396 
1897 
1898 
1899 
19(»B 
19?1 
19?Z 
19C3 
i9?4 
19?5 
19?6 
19^7 

19:?8 

19?9 
1910 



P02074 



(102074 
(102075 
(102076 

("102100 
002101 
002102 
002103 
002104 
002105 



002106 
002107 
002110 
002111 
002112 
002113 
002114 



135040 
200041 
603040 
201400 

135046 
302040 
263140 
260140 
201246 
200040 



200000 
4120?6 
2050:?0 
437006 
603100 
260140 
263140 



INTERN FTLOGIN 

INTERN CNCTST 

CNCTSTs 

IFN FTLQr,lN,< 



001632' 
000000 
100000 
000175 

000014 

000003 

000000 

000063' 

000013 

000173' 



CNCTSlI 



LDP 
MOVE 
TLNE 
MOVE! 

LDP 

CAIE 

POPJ 

PUSHJ 

MOVEI 

MOVE 



002351' CNCMOD! MOVE 

000002 ANDCAM 

000404 MOVSI 

000002 lORa 

400000 TLNE 

001333' PUSHJ 

000000 POPj 



EXTERN JBTSTS 

TACPJOBN 
TAC, JBTSTS(TAC) 
TAC, JACCT 
CHREC.175 

TACTIPUTRfO'^Bl 

TAC, 3 

POP. 

PQP.TSETBF 

0AT,TTI8UF(D'^B) 

TAC,SPCTAB+3 



ISTOP ALL I/O. BY CLEARING BUFFEF'S 

IGET POINTER BACK TO INPUT BFR 
lANO BITS FOR CONTROL C 



lOS.rXWD DOT^"*IO♦IOSUPR♦USRB.MERTPO + ECHOF + IGNOR: 

lOS.DEVIOSIOnB) 

I0S.TP>10N*I0FST 

IOS.DEVIOS(0?B) 

LINE.PTYLIM )• 

PDP.PTMNMD ;• 

POP, 



SCNSPF 



1911 
1912 
1913 
1914 
1915 
1916 
1917 
1916 
1919 
19?0 
19?1 
1922 
1923 
1921 
1925 
19?6 
1927 
1928 
1929 

1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
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(302115 
1902116 
002117 
002120 



002121 
U02122 
002123 

002124 
002125 
002126 
002127 

002130 
002131 
002132 
002133 
002134 
002135 
002136 
002137 
002140 
002141 



002142 
002143 
002144 
002145 
002146 



261140 
201400 
260140 



135^40 
316045 
263140 

205040 
270045 
603040 
27004U 

202045 
350005 
350045 
307040 
254000 
275040 
202045 
201040 
272045 
254000 



135040 
202046 
260140 
202046 
254000 



(ROUTINE TO ECHO BACK-SLASH 



000010 BSECHOl PUSH 
000134 MOVEI 

002001' PUSHJ 



PDP.CHREC 
CHREC."\" 
POP, AOJO^X 
CHPOPJ 



254000 0020501 JRST 

IROUTINE TO DECREMENT PUTR 



0000061 

000002 
000000 

070000 
000001 
400000 
002352' 

000001 

000005 

000002 

000120 

001415' 

000120 

000002 

000020 

0000(711 

002134' 



INTERN OCPUTR 

DCPUTK: LDB 
CAMN 
POPJ 



TACPLSTLC 

TACPCTRtDAT) 

POP, 



■^OVSI TAC, 70000 

ADD TACPUTRfOAT) 

TLNE TAC, 400000 

ADD TACCXWD 347777,-1: 



MOVEM 

ADS 

AOS 

CAIG 

JRST 

SUBI 

MOVEM 

MOVEI 

ADDM 

JRST 



TACPUTRCDAT) 

rCTR(DAT) 

TACPCTRIDAT) 

TACTTYCHR 

CPOPJl 

TAC.TTYCHR 

TACPCTRIDAT) 

TACSTTYHF 

TAC,PUTR(OAT) 

CPOPJl 



IROUTINE TO DELETE CURRENT LINE (tU) 



000006' OELETLl LOB 
000015 MOVEM 



001207' 

000014 

001160' 



PUSHJ 
MOVEM 
JRST 



TACPLSTLC 

TAC,TIPCTR(DDB) 

PDP.TBYTEP 

TACTIPUTR(DOB) 

TRESCl 



(CHECK FOR NONE TO DELETE 



I* 



IMHERE WAS LAST BREAK? 

ISTORE COUNT 

(CONVERT TO A BYTE POINTER 

(SAVE POINTER 

(GO COMPUTE TIFCTR 



sc'iswr 



I9?e 

1951 
1952 
195J 
19'=4 
1955 
19'^6 
19'57 
1958 
1959 
196a 
1961 
1962 
1963 
1964 
196b 
1966 
1967 
1968 
1969 
19713 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
19S3 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
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S»02l47 
fi3215a 
BU2151 
f"«)?152 
P102153 
("02154 
(^02155 
f^02155 
^laJlS? 
("02160 
002161 
("02162 
("02163 
002164 
C02165 
002166 
?02167 
002170 
002171 
002172 



002173 
002174 
00Z175 
002176 
002177 
002200 
002201 
002202 
002203 
002204 
002205 
002206 
002207 
002210 
002211 
002212 
002213 
002214 
002215 



4054P0 
5503;"2 
3223;'0 
306400 
2540110 
261140 
135100 
500102 
5503f2 
3223-^0 
261140 
3161^3 

607ir0 

260140 
200006 
260140 
262140 
312103 
254000 
254000 



201202 
135400 
135040 
316040 
254000 
200100 
254000 
137400 
302402 
254000 
205400 
412402 
2054fi0 
200100 
137200 
412402 
201400 
t374i"6 
264000 



000177 

0016;'3' 

001663' 

000003 

002173' 

000002 

000003 ' 

001602 ' 

002150' 

002170' 

000010 

777777 

010004 

005'.144 ' 

000002 

001505 ' 

000010 

000000 

002155' 

001713' 



OOTALll 



IFM FTTALK,< 
EXTERMAL TPCPJ 
DOTALK: A\ni 
H«RE 
JU'iPE 
'•AW 
JfiST 
PUSH 
LOR 
iJLL 
HiiR2 
Jui^PE 
PUSH 

rA"N 

TLNN 

PUSHJ 

"OVE 

PuSHJ 

PUP 

'^Af'E 

JRST 

JRST 



nOTAL2! 



THREC, 177 
DDP.TTYTABILINE) 

nou.rPOPj ino such line 

CHREC.3 
^0T4LK 
PDP.LINE 
LINE.PTALK 

li>JE.lintab(lin:e) 
003,ttyt4b(l1ne) 

DUR,nOTAL2 

POP.CHREC 

Ll'^E.-l(POP) 

LlNE.FULTWX+HLEDPX 

PDP. PUTCMO 

IOS,DEVIOS(DfVDAT) 

PDP.TYPTST 

PDP.CHREC 

LlME,0(PnP! 

nOTALl 

TPCPJ 



ilF I TYPE A tC IN TALK RING, THEN 

;assuhe nlxt«-me<-prev 
(set next<-prev 

!IF NEXTrPREV, Clear its TLKRNG BIT 

;SET ME'-ME 

ICLEAH TLKRNC; BIT IN LINTAB(mE) 



000000 
000003' 

000003' NOTALII 
000004 



NOTALKl MOVEI wPns,0(LINE) IME 

LDB CHRECiPTALK INEXT 
LOB TACPTALK 
CAMN TAC.HPOS )ME<-? 



002202' 

000001 

002175' 

000003' N0TAL2i 

000000 

002207' 

000001 

002156' 

000001 

000004 

000003' 

002206' 

000003 

000014 

001434 ' 



N0TAL3! 



JRST N0TAL2 

MOVE LINE.TAC 

JRST NOTALl 

OPB CHREC.PTALK 

CAIE CHREC.iLINE) 

jRST \'0Tal3 iNO 

MOVS! chrec.tlkrng 

ANncAM chreclintab'line) 

MQVSI chrectlkrng 

MOVE lINE.HPOS ime 

npn hpos.ptalk ime 

ANnCAM CHREC.LINTAB(LINE) 

MQVEI CHRECJ IGET 

OPT CHREC.TIPUTR(DOB) 

JRST RECINT iaND 



;yes. line=prev 
ino. find prev 

(make next^prev 
iring now empty? 

lYES. CLR HIS BIT 



ME 

;CLR HY BIT 
A fC AGAIN 

ILOO^ LIKE 2 OF THEK 
PROCESS IT FROM THE TOP 
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199B 
1999 

?S?3 
2Z7I4 
20?5 
2H?6 

2af)8 

?0Pi9 
2 03.0 
2011 
2012 
2013 
2014 



1»02216 
f"0221() 
PI02217 
l?02220 
002221 
C02222 
("02223 
f?02224 



603lii0 
263140 
26f!l40 
6071C0 
2540(?0 
712140 
137400 



400000 
000000 
000000 
203000 
000000 
000210 
0000^14 • 



ROUTINE TO TYPE CHAR 
CALL ►"OVE LlNF.LINE ^'0, 

"OVE CHREC, CHARACTER 

PUSHJ PDPiTyo 



INTERNAL TYPL 

EXTERNAL TC3VL^' . RCNT yP , PFVENf 



TYP! 
TYPL; 



CTYP! 



C02225 253140 000000 



TLNE LiNEiPTYLIM 
OQPJ POP, 

PUShJ PDP,PEVEN)8 
TLNN LINE.CTYLIN 
JRST ?CNTYP 
DATA" TTY, CHREC 
"PP CHREC. PLASTC 
PQPJ POP, 



;yes 

[GENERATE CORRECT PARITY 

INO, CONSOLE TTY7 

;TYPF CHAR, 
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?215 
2016 
2017 
2018 
2019 
2020 
2B?1 
20?2 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2071 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
Z046 
2047 
2048 
2049 
2050 
20'51 



002226 
002227 
002230 
002231 
002232 
002233 
002234 
002235 
002236 
002237 
002240 
002241 
002242 
002243 
002244 
002245 
002246 
002247 
002250 
002251 
002252 
002253 
002254 
002255 
002256 
002257 
002260 



201100 
316040 
254000 
510100 
312100 
263140 
621040 
322040 
245040 
622l?'0 
602100 
263140 
241040 
640040 
606040 
245040 
301100 
263140 
550302 
326300 
260140 
263140 
512006 
261146 
201040 
412046 
254000 



(ROUTINE TO SETUP DOB FOR OUTPUT 
CALL MOVE TACCSIVBIT /TTV#/ 
OUSHJ PDPiGETDOB 
NONE AVAILABLE HFTUR\i 
RETURN WITH LINE AND DOB SETUP 



EXTERNAL TCONLN.CPOPJ.CPOPJl.TPOPJl 



INTERNAL EETHDR 



001424' GETDOB: 

002353' 

002250' 

000001 

002354' 

000000 

777777 

002151' 

000030 

000020 

000070 

000000 

000003 

000002 

000007 

000003 

002226' 

000000 

002157' GETDBll 

002141' 

002261' 

000000 

000002 

000000 

600000 

000004 

000000 



MOVEI LlNEiTCONLN 

CAMN TAC.CSIXBIT /CTV/] ICTY? 

JRST GETDBl lYES 

HLLZ LINE.TAC li'lO 

CAME LINE.CSIXSIT /TTY/] 

PQPJ POP, 

TLH TAC,-1 

JUMPE TAC.CPOPJ 

ROTC TAC,30 

TR?E LINE. 20 

TRNE LINE. 70 

POPJ POP, 

ROT TAC.3 

TRC TAC.2 

TRNN T*C,7 

ROTC T4C,3 

CAIL LINE.TCONLN 

POPj POP. 

HRRZ DDB.TTYTABlLINE) 

JUMPN DDB.CPOPJl 



PUSHJ POP. DDBSRC 

POPJ POP, 

HLLEM 10S,DEVI0S(DDB) 

PUSH PDP.DEVNAM<DDB) 

MOVEI TAC,ASSCON*ASSPRG 

ANDCAM TAC,nEVMOD(DDB) 

jRST TPOPJl 



ITTY PREFIX? 
(NO 
(YES 
ITTY? 
(NO 
(IS FIRST SUFFIX AN OCTAL OIGIT? 

INO 

lYES 

(IS THERE A 2ND SUFFIX THAT IS AN 

(OCTAL DIGIT? 

(YES 

(LEGAL LINE NUMBER? 

(NO 

(DOES THIS LINE HAVE A DDB? 

(JUMP IF SO, 



(NO, SEARCH FOR FREE DDB 
(NONE AVAILABLE 
( INITIALIZE STATE 



SCNSfSF 
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?052 








2053 








2054 








2055 








2056 








2057 








2058 








2059 








2060 








2061 








2062 


002261 


55^040 


000002 


2063 


002262 


303040 


001023' 


2064 


002263 


263140 


000000 


2065 


002264 


205000 


000012' 


2066 


PI02265 


201300 


00(1437' 


2067 


002266 


334040 


002345' 


2068 


002267 


554306 


000003 


2069 


002270 


612046 


000004 


2070 


002271 


2530510 


002267' 


2071 


002272 


325000 


002235' 


2072 


002273 


205040 


400000 


2073 


5102274 


412046 


000011 


2074 


002275 


205040 


000007 


2075 


002276 


202046 


000007 


2076 


0Z2277 


202046 


000010 


2077 


002300 


200000 


002355' 


2078 


002301 


261140 


000005 


2079 


0023P'2 


260140 


000063' 


2080 


002303 


262140 


000005 


2081 


002304 


200040 


002356' 


20fl2 








2083 









ROUTINE TO SEARCH FOR FREE TTY OEV DATA BLOCK 
CALL! MOVE LINE, TTY LINE NO, 

PUSHJ PDP.DPBSRC 

NOME FOUND OR LINE NO, TOO BIG 

RETUPN DEVDAT.LINE AI-'D DEVNAM SET AND BITS TPMON , I OFST , 1 OACT , 
TTYLSE.ASSCON' SET, 



EXTERNAL TTPLEN , MLTT YL , CROP J 
INTERNAL DD6SRC 



DDRSRCl 



MRRZ TACLINE 

CAILE TACTTPLEN 
POPJ POP, 
i^OVSI IOS,MLTTYL 
MOVEI DEVDAT.TTYLST 



(NUMBER OF LINE ONLY 
IIS LINE NO. TOO Bit 
lYES, 

)N0, OF TTY DDBS 
lADDRESS OF FIRST TTY DOB 



SKIPA TACCXWO TTYUSE*-TTYATC,ASSPRG*ASSCON] 
HLR2 DEVDAT,DEVSER(DEVDAT) JCHAIN THRU DDBS 
TONE TAC,DEVMOD(DEVDAT) lUSEiATTACH OR ASSIGN BITS 
AOBJN IDS.. -2 lYES, DONE? 



ON? 



JUMPGE 

MOVSI 

ANDCAM 

MOVSI 

MOVEM 

MOVEM 



IVES, 



DEVICE DATA BLOCK FOUND? 
ICLEAR TOIP IN DDB 
UN CASE OF PREVIOUS DETACH 



lOS.CPOPJ 

TACTOIP 

TAC,TTYPTR(DDB) 

TAG, PROG 

TACDEVIADIDDB) ICLEARS 

TACDEVOADIDDB) ICLEARS 
MOVE lOS.CXWD TPMON*IOFST, lOACT] 
PUSH POP, DAT 

PUSHJ PDP,TSETBF UNITIALIZE BUFFERS 

POP PDP.OAT 
MOVE TAC.CXWO TTYUSE,ASSCON]l INITIALIZE DAT* BLOCK, 



PHPOS 
PFITCH 



IFALL INTO SCNIN 



SCK-SSF 
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?084 

?0B6 
?037 
?0S8 
?a89 
?092 
2091 
?09Z 
20O3 
2094 
2095 
2096 
2097 
2098 
2099 
21C0 
2101 
21'^2 
21«J 
21IM 
Jll'^ 
? 1 ■' 6 
?1'7 

:?1«8 

21"9 
211.0 
2111 
2112 
?113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 



002310 
002311 
002312 
002313 
002314 
002315 
002316 
002317 
002320 
002321 
002322 
002323 
002324 
002325 
002326 
002327 
002330 
002331 
002332 
002333 



IMTlALIiF TTV PEWICE DMA 'LOCI' ( CALLED FRO" TTYATT TOO) 
CALL! >'OVE TAC.blTS IN DFV'OD TO BE TURNED ON 

MOVE DFVDAT, ADDRESS ■'F OFVICF DATA BLOCK 

PUSHJ PDP.SCNIM 

SKIP RETURN ALWAYS 

CALLED BY JRST FRO^ TTYATT 
AND FALLS !N FRO" DO'-iSRC AUQVE 

SETS PHYSICAL NAME TO SIXBIT /TTY#/ OR SIXBIT /CTY/ 

WHERE » IS THE LINE KUMBER, 
STORES LINE NUMHER IN DEVICE OATA BLOCK 

EXTERNAL PUNIT.TTYTAS.TCONLN.CPOPJI 



00231^5 436046 000004 SCK'IN! 
0023('6 l37l,''0 001412' 



IORM TAC,DEVM00(DEVDAT) 

OPR I INE.PUNIT ;SET LINE NO, IN DDB, 



0023(»7 1371P0 000003' 



INTERNAL ETTAL" 

IFN fttalk.< 

nPP LINE.PTALK 



iSETUP TALK RING TO CONTAIN 
lONLY THIS TTY. 



205040 
202046 
200040 
606100 
254000 
241100 
271100 
136100 
620100 
241100 
271100 
136100 
260140 
542302 
205040 
603100 
202046 
603100 
260140 
254000 



646471 

0000!"0 

002357' 

000070 

002322' 

777775 

000020 

000001 

777777 

000003 

000020 

000001 

001324' 

002250' 

436471 

200000 

000000 

400000 

002113' 

002251' 



^OVSI TAC. 646471 ISIXRIT /TTY/ 

MOVE''' TAC.OEVNAM(DEvnAT) 
"OVE TAC, [POINT 6,0EVNAM<DEV0AT) ,17: 
TRNN LIi\Ef70 IIS THERE A HIGH 

JRST SCNIN0 INO 

ROT LINE, -3 lYES, CONVERT TO 

AODI LINE. 20 
IDPB LINE, TAC 
TR? LINE,-1 
ROT LINE, 3 
SCNIN0: AOni LINE. 20 

idpb line. tac 
pushj pdp.stlnac 

HRRM DEVDAT,TTYTAB(LINE) 
"GVSI TAC, 436471 

LINE.CTYLIN 
TACDEVNAMIOEvnATJIYES. 

LINE.PTYLIN 

P0P,PTMNM0 



ORDER OCTAL DIGIT? 
SIXBIT, 



(STORE HIGH ORDER SIXBIT DIGIT 
(LOW ORDER DIGIT IN LINE 



TLNE 

MOVEM 

TLNE 

PUSHJ 

JRST CPOPJl 



ISTORE LOW ORDER DIGIT 

iSET DOB ADR. IN TRANSLATOR TABLE, 
ISIXBIT /CTY/ 
I IS THIS CONSOLE TTY? 
SET NAME TO CTY, 

IIS THIS A PTY? 

(YES. SET IT INTO MONITOR MODE 
(SUCCESSFUL RETURN. 



SCVS:5F 


- scA.KjMrR AND comsolf: t 




"■ CLFMCNTS/RCC 


TS 3 


21?7 


("02334 






21?8 


("02334 


4010?0 


010000 


2129 


C02335 


400030 


1 1" 


21J0 


C02J36 


4 40 7!?0 


000001 


21.-51 


1^02337 


070000 


000000 


21.i2 


(^02340 


401200 


710000 


2133 


002341 


0107.'"0 


000001 


21:54 


002342 


001400 


710000 


2135 


002343 


010707 


000001 


2136 


002344 


000020 


010000 


2137 


002345 


030000 


600000 


2138 


002346 


001622 


350000 


2139 


002347 


000001 


010000 


2140 


002350 


001000 


000100 


2141 


002351 


001320 


700000 


2142 


002352 


347777 


777777 


2143 


002353 


436471 


000000 


2144 


002354 


646471 


000000 


2145 


002355 


0004i'.4 


01ZI000 



03 JUN 69 



SCNEMU! FMO 



2146 002356 010000 400000 

2147 002357 220606 000000 

NO ERRORS DETECTED 
PROGRAM BREAK IS 002360 



V415 



»1ACRP,V36 19:12 4-JUN-69 PAGE 74 



SCMSRF - SCANNER AND CONSOLE TELETYPE SERVICE ROUTINE 
SYMBOL TABLE 



V415 



MACRO, V36 19:12 <l-JUN-69 =AGE 75 



ACl 


000015 


INT 


4URERR 


PI0P)55;j' 


EXT 


ALTMnU 


001741' 




ASSP^G 


2wm% 


INT 


BUF 


?i00nc.i; 


INT 


CHREC 


000010 




CNrMOO 


0021P5' 




CNTLFC 


00?l?62' 




CONT" 


001754' 




CONTM 


001761' 




C0NTI2 


002034' 




COMTn 


001727' 




CONT" 


001757' 




COMT? 


001724" 




CRLF 


002061' 




CTYLIN 


2000^0 


INT 


DAT 


000005 


INT 


ODPS^C 


002261' 


INT 


DDT4 


000325' 




DUTPJ 


000233' 


INT 


nOTOUT 


000313' 


INT 


DELETL 


002142' 




nEvins 


0000(^2 


INT 


nevNAM 


000000 


INT 


DEVPHY 


001306' 


EXT 


nLRSliP 


000400 




nOTALK 


002147' 




DUPLEX 


001705' 




DVnUT 


0000r-i 


INT 


ECMOF 


100000 




ERROR 


001322' 


EXT 


FCTR 


000005 


INT 


FTCHFC 


000000 


INT 


FTHDPX 777777 777777 




FTRCie 777777 777777 




FTTTYS 777777 777777 


INT 


GETCH2 


000135' 




GETDHB 


002226' 


INT 


GETWil 


000322' 


EXT 


HPOS 


000004 




IGKOR 


200000 




INCHRW 


001001' 




INJEST 


001434' 


INT 


lOACT 


010000 


INT 


lOOERR 


200000 


INT 


lOFST 


000004 


INT 


lOSUPR 


000200 




JACCT 


100000 


INT 


JOBPFI 


000000 


EXT 


LIN'DON 


001654' 




LINSAV 


000526' 


INT 


MLTTYL 


002264' 


EXT 


M0NUS3 


000577' 





AC2 


00001 6 


INT 


4DVBFE 


300644 


EXT 


AOJDPX 


0020C1 




BREAKB 


020000 


INT 


BUFCLR 


000652 


EXT 


CLOCK 


001552 


EXT 


CNCTSl 


0021?i3 




COMCNT 


001600 


EXT 


CONTC 


001722 




CONTI 


002024 




rONTK 


002005 




CONTP 


001753 




CONTU 


001733 




CPOPJ 


002272 


EXT 


CRLFFC 


002042 




CTYOUl 


001431 




nCPUTR 


002121 


INT 


DDT2 


000321 




DDT5 


000315 




TDTIhl 


000241 




DDTUTT 


000343 




OEVDAT 


000006 


INT 


DEVLOG 


0000^5 


INT 


DEVQAD 


000010 


INT 


OEVSER 


000003 


INT 


nOTALl 


002155 




nSCTLN 


020000 


INT 


DUPLXl 


001717 




OVTTY 


000010 


INT 


FCHSUP 


002000 




PCS 


000100 




FTATTA 777777 777777 


INT 


FTnoTM 777777 777777 




FTLOGI 777777 777777 


INT 


FTSWAP 777777 777777 




FULTWX 


000004 


INT 


GETCHR 


000124 


INT 


GETLIN 


001020 




GETwnU 


001010 


EXT 


lAIDRCK 


000252 


' EXT 


INRFUL 


001714 


• INT 


INCHSL 


000742 


» 


INUS2 


001434 


• !NT 


lOBEG 


000002 


INT 


lOOTER 


120000 


INT 


I.OIMPM 


400000 


INT 


lOW 


000001 


INT 


JBTSTS 


002075 


' EXT 


KILMSK 


000043 


INT 


LINE 


000002 




LINTAB " 


002212 


' EXT 


MONUSl. 


000561 


1 


M0NUS4 


0006^2 


t 



ADJHP 


000423' 




ADVBFF 


000602' 


rxT 


ASSCON 


400000 


INT 


BSECHQ 


002115- 




CHPQPJ 


002050' 




CLRBYT 


000000 


rXT 


CNCTST 


002074 ' 


INT 


COMSET 


001572' 




CONTF 


001752' 




CONTU 


002013' 




CONTL 


002007' 




CONTQ 


001756' 




CONTUl 


001737' 




CPOPJl 


002333' 


FXT 


CTYINT 


001421' 


INT 


CTYP 


002223' 




DOB 


000006 




DDT3 


000323' 




DDTCNC 


000300' 




OOTM 


001000 




DDTWAT 


000335' 




OEVIAD 


000007 


INT 


DEVMOD 


000004 


INT 


DEVOPR 


001367' 


FXT 


DISLIN 


100000 


INT 


DOTAl.2 


002170' 




DSDTLN 


040000 


TNT 


DVIN 


000002 


INT 


ECHO 


001641' 




ENDECH 


001556' 




FCSBRK 


004000 




FTCCL 777777 777777 




FTOISK 777777 777777 




FTMONP 


000000 


!NT 


FTTALK 777777 777777 


INT 


GETCHl 


000141' 




GETDBl 


002250' 




GETLNl 


001033' 




HLFDPX 


010000 


INT 


IDLECH 


000001 




INCHRS 


000744' 




INCHWL 


000760' 




10 


000020 


INT 


lOBKTL 


040000 


INT 


lOEND 


000040 


INT 


IDS 


000000 


INT 


ITEM 


000004 


INT 


JOB 


001220' 


FXT 


LGLSET 


000036 


INT 


LINRDY 


000100 




MERTPO 


400000 




M0NUS2 


000570' 




M0NUS5 


000606' 
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M0MUS6 


5120613' 




MOMUSR 


CI0Plt>51 ' 




NOTALl 


002175' 




NOTALK 


002173' 




OUTCIA 


000416' 




OUTCMl 


000376' 




OUTCHR 


000345' 




PCOMIC 


000035' 


INT 


PEVEM8 


002220' 


EXT 


PION 


0002(?0 




plstlc 


000006' 




PTALK 


000003' 




PTYGET 


001610' 


INT 


PTYPF 


000652' 


EXT 


PUTCHO 


000144 ' 




PUTCI2 


000101' 




RECmi 


001561' 




REn!\'2 


001450' 




RECIN8 


001445' 




RUROm 


002002' 




RUFI0M4 


001765' 




SCMl 


000015' 




SCMCMN 


001431' 


EXT 


SCNOSP 


000531' 


INT 


SCN'I^Z 


002322' 




SCN'ONJ 


001414' 


EXT 


SCNTYP 


002222' 


EXT 


SETBFI 


000055' 


INT 


SIMFF 


002020' 




SKPIML 


000772' 




SPCHKl 


000166' 




SPOUT 


100000 




STTYBF 


000020 


INT 


T0POPJ 


000547' 




TAC 


000001 


INT 


TBYTEP 


001207' 




TEM 


000010 


INT 


TIFCTR 


000020 


INT 


TIPUTR 


000014 


INT 


TITCTR 


000017 


INT 


TOHF 


000047 


INT 


TOPCTR 


000043 


INT 


TOTCTR 


000045 


INT 


TPOPJ 


002172' 


EXT 


TRESCL 


001173' 




TSETBF 


000063' 


INT 


TTIO'IT 


000113' 




TTOBMF 


000041 


INT 


TTSTRl 


001342' 




TTYAT2 


001045' 




TTYAT5 


001073' 




TTYATT 


001042' 


INT 


TTYCMl 


001112' 





M0NUS7 


000623 




MTTYLN 


001276 


FXT 


N0TAL2 


002202 




ONEOUT 


001010 




OUTCIB 


000411 




nUTCH2 


000370 




nuTCHS 


000352 


INT 


PCTR 


000002 


INT 


PHPOS 


000000 




PJOBM 


002074 


FXT 


PROG 


0000?7 


INT 


PTMNMD 


002332 


FXT 


PTYLIN 


400000 


INT 


PUNIT 


002306 


EXT 


PUTCI0 


000142 




PUTCOl 


000155 




RECHOX 


001526 




RECIN3 


001465 


INT 


RLCINT 


001434 


INT 


RUB0U2 


001773 




RUBOUT 


001763 




SCN2 


000034 




SCNDOB 


000437 


INT 


SCNEND 


002334 




SCNINI 


000011 


EXT 


SCNSAV 


001423 


EXT 


SETBF0 


000065 




SETLIN 


001035 




SIMFFl 


002014 




SPACTN 


400000 




SPCTAB 


000170 




STLNAC 


001324 


INT 


SYNC 


020000 




T35 


000010 


INT 


TACl 


000002 


INT 


TCONLN 


002246 


' EXT 


TENDIN 


000546 




TIPACK 


001674 




TISYNC 


000012 


INT 


TLHBYT 


0012f!2 




TOFCTR 


000046 


INT 


TOPUTR 


000042 


INT 


TPCJOB 


000001 


' INT 


TPOPJl 


002260 


• EXT 


TRESCN 


001154 


• INT 


TTEDIT 


001665 


f 


TTIPTl 


001702 


» 


TTOUWS 


000710 


1 


TTUUOL 


000015 




TTYAT3 


001077 


1 


TTYATC 


020000 


INT 


TTYCHR 


000120 


INT 


TTYCM2 


001136 


) 



MONUSB 


000627' 




NOECHO 


000200 




N0TAL3 


002207' 




OUT 


003532' 


rXT 


OUTCIC 


0004{!5' 




0UTCH3 


000371' 




OUTSTR 


000771' 




PDP 


000003 


INT 


PIOFF 


000400 




PLASTC 


000004' 


TNT 


PSAVCH 


0000;02' 




PTMNM2 


001341' 


FXT 


PTYOW 


0003103' 


FXT 


PUTCHI 


0000:77' 


INT 


PUTCIl 


000i;il' 




PUTR 


000001 


INT 


RECINl 


001443' 




RECIN4 


001472' 




RQBTPD 


000040 




RUB0U3 


001767' 




RMARN 


0015:i7' 




SCN3 


000045' 




SCNOOS 


000067 


INT 


SCNIN 


0023:05' 




SCNOFF 


001374' 


FXT 


SCNSRF 


0000:00' 


INT 


SETBF2 


000064' 




SETRUN 


001420' 


FXT 


SKPINC 


000775' 




SPCHEK 


000160' 


INT 


SPHPOS 


010000 




STTIOO 


001557' 


FXT 


SYSPOU 


000460' 


INT 


T37 


000020 


INT 


TAKR 


000003 


INT 


TCTR 


000004 


INT 


TIBF 


000021 


INT 


TIPCTR 


0000:15 


INT 


TITAKR 


0002(16 


INT 


TLKRNG 


000001 




TQIP 


400000 




TOTAKR 


000044 


INT 


TPMON 


000400 




TRESCl 


001160' 




TRESCU 


0BH70' 




TTIBUF 


000013 


TNT 


TTIPUT 


0017*00' 




TTPLEN 


002262' 


FXT 


TTUUOT 


000725' 




TTYAT4 


001105' 




TTYATI 


001042' 


INT 


TTYCM 


00li31' 


INT 


TTYCOM 


0013,07' 


INT 
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TTY~' T 


:''eir?2 


TTYni c 


?ilf)20^0 


TTYri 


0BlJ,"t>' 


TTYF-c 


P'01221' 


TTV! ■ 


5100634' 


TT V ! ■'H 


40K0F(« 


TTVL^,T 


e004.'!7 ' 


TTv^>L 


5101240' 


TTYSKA 


^01277' 


TTYSTR 


?'01334' 


TTYT^l 


^01374' 


T T Y U = R 


001416' 


TYP 


002216' 


TYPT1 


001515' 


UADCl 


000723' 


IJSRH 


000l!»0 


USRM'.J 


000677' 


USRMflN 


000663' 


UUO 


000ei 4 


ypRi-. 


300261' 


XMTIU 


001613' 


XMT1M4 


001624' 


?.l 


000437' 



INT 



INT 



INT 



EXT 



INT 



TTYC T 


001141' 


INT 


'TYr^P 


0012.^4' 


INT 


TTYP7 


001321' 




TTYF»'U 


001220' 


INT 


TTYI> 1 


000543' 




TTYKIL 


001244' 


INT 


TTYSI'T 


000632' 




TTYKrT 


!»040P10 


INT 


TTYSRC 


001275' 




TTYTAB 


002325' 


EXT 


TTYTLK 


001355' 


INT 


TTYUND 


000714' 


INT 


TYPE 


001663' 


INT 


TYPIST 


001505' 




HADRfK 


00^1667' 


EXT 


nSR'-'Ml 


000666' 




UiiRMV4 


000672' 




UTYPFT 


000652' 




VSC\SF 


000415 


INT 


XFRlK'l 


000267' 




XMT IMl 


001512' 




XMT I«'T 


00165-2' 


INT 



TTYDTl 


001147' 




TTYF0 


001304' 




TTYF9 


001323' 




TTYFUW 


001224' 


TNT 


TTYINI 


000007' 




TTYKLl 


001267' 




TTYPTR 


000011 


INT 


TTYSET 


001273' 


INT 


TTYSTC 


001327' 


INT 


TTYTCM 


001327' 


INT 


TTYUSE 


010000 


INT 


TWSYNC 


000302' 




TYPL 


002216' 


INT 


TYPX 


001565' 


INT 


UCHN 


000012 


INT 


USRMN2 


000671 ' 




USRMN5 


000675' 




UTYPTl 


00066X' 




WSYNC 


001233' 


FXT 


XFRIN2 


000273' 




XMTIN2 


001643' 




XON 


000002 


INT 



A 


6# 


6 


























4C1 


6# 
940 


6 
958 


472 


482 


83B 


831 


836 


850 


851 


921 


923 


925 


934 


937 


AC2 


6« 
9:10 


6 
933 


468 
938 


459 


481 


4 8'4 


829 


841 


849 


850 


851 


917 


918 


919 


AC3 


6# 




























ADJHP 


5*8 


613# 


1730 
























ADfEPH 


447 


464 


467 


506 


8:?7 




















ADVBTE. 


882 


656 


























ADVBff 


823 


853 


























AEFERR 


6« 


6 


























AL 


6# 


6 


























ALTMOO 


4?9 


437 


438 


1783# 






















AOJOPX 


1787 


1817# 


1852 


1867 


1869 


1915 


















ASSCTN 


6# 


6 


1334 


2049 


2067 


2081 


















ASSPPG 


618 


6 


1334 


2049 


2067 




















R 


6« 


6 


























I3REAKB 


190 
1733 


397* 


405 


412 


413 


414 


428 


429 


437 


438 


477 


839 


987 


1230 


BSECHO 


1742 


1816 


1820 


1913# 






















BUF 


126# 


126 


284 


291 


3'"6 


336 


342 


1660 














BUFCLR 


823 


826 


























BUFPMT 


6# 


6 


























BUFWPD 


6# 


6 


























CHPO°J 


1862# 


1916 


























CHPEC 


172* 


311 


336 


337 


342 


343 


344 


345 


346 


348 


350 


370 


383 


385 




387 


3S9 


474 


479 


481 


483 


4P4 


502 


527 


528 


530 


566 


586 


587 




590 


6/3 


6«4 


613 


615 


617 


619 


621 


835 


836 


842 


845 


925 


9;i6 




928 


940 


984 


990 


992 


1036 


1037 


1038 


1040 


1227 


1460 


1462 


14 66 


1499 




15?2 


15!'3 


1520 


1536 


1537 


1580 


1582 


1599 


1501 


1621 


1622 


1623 


1628 


1629 




1631 


1673 


1674 


1676 


1690 


1706 


1737 


1740 


1758 


1760 


1783 


1784 


17 88: 


1790 




1812 


1829 


1837 


1850 


1857 


1858 


1860 


1862 


1865 


1666 


1868 


1870 


1877 


1894 




1913 


1914 


1950 


1953 


1960 


1966 


1979 


1985 


1986 


1988 


1989 


1990 


1993 


1994 




1995 


2012 


2013 
























CLKR 


6# 


6 


























CLOCK 


1590 


1612 


























CLRHVT 


1411 




























CLSIN 


5# 


6 


























CLSOUT 


6» 


6 


























CMWB 


6# 


6 


























CNCMOD 


863 


1904# 


























CNCTSl 


1759 


1699" 


























CNCTST 


1538 


1886 


1888# 
























CNTLEC 


1767 


1779 


1865# 
























COMCNT 


151<) 


1642 


























COMSET 


869 


1428 


1554 


1636# 






















CONTH 


4P4 


1795# 


























CONTC 


405 


1765# 


























CONTF 


408 


1793* 


























CONTH 


410 


18!"1# 


























CONTI 


411 


1840# 


























CONTIl 


1829# 


1848 


























C0NTI2 


1850# 





























COMTK 


41i 


18?3i« 


























roNTL 


411 


18?5i» 


























COMTn 


417 


1771# 


























CONTP 


418 


17941" 


























CONTQ 


419 


1796# 


























rOMTS 


4?1 


1799# 


























CQMTU 


423 


1775# 


























CONiTUl 


1774 


1779# 


























COMT? 


428 


1757* 


























CORCMT 
CPOPJ 


5("6 


6 
984 


1038 


1148 


1155 


1650 


17!»6 


1952 


2021 


2032 


2059 


2071 






CPOPJI 


312 


390 


800 


993 


1164 


1167 


1440 


1474 


1934 


1939 


2021 


2044 


2097 


2126 


nRLF 


415 


1873* 


























CRLFEC 


573 


1768 


1780 


1821 


1856* 




















CTYIN'T 


1490 


1493* 


1494 
























CTYLIN 


139# 


167 


261 


2010 


2122 




















CTYOMl 


1408 


155"2* 


























CTYP 


2ei2# 





























DAT 


6« 
6# 


6 
6 


238 


239 


242 


275 


276 


277 


278 


283 


284 


286 


287 


289 




290 


291 


292 


301 


303 


306 


3!"7 


309 


311 


321 


322 


336 


337 


340 




342 


343 


345 


346 


347 


351 


471 


523 


525 


527 


531 


532 


540 


832 




9S2 


11^8 


1225 


1262 


1383 


1540 


1658 


1660 


1661 


1665 


1667 


1695 


1612 


1900 




1923 


1927 


1930 


1931 


1932 


1936 


19:'8 


2078 


2080 












nCL 


6# 


6 


























DCLI 


6« 


6 


























nCLO 


6# 


6 


























DCLR 


6* 


6 


























OCPUTR 


1813 


1920 


1922* 
























DDK 


173# 


194 


2I?I4 


205 


25"7 


237 


2-^9 


240 


241 


242 


243 


245 


246 


247 




248 


250 


254 


255 


278 


279 


283 


317 


318 


321 


361 


364 


366 


367 




369 


370 


453 


454 


455 


458 


470 


471 


478 


520 


537 


560 


806 


808 




ai4 


818 


825 


830 


632 


840 


847 


849 


855 


859 


865 


866 


667 


668 




873 


8S5 


388 


890 


900 


9PI5 


910 


917 


921 


939 


944 


980 


982 


988 




1«01 


1033 


1011 


1015 


1016 


1029 


11010 


1125 


1157 


1156 


1159 


1169 


1170 


1175 




1176 


1195 


1198 


1202 


1204 


1211 


1213 


1214 


1216 


1219 


1224 


1275 


1231 


1244 




1262 


1273 


1275 


1278 


1286 


1291 


1313 


1319 


1324 


1328 


1338 


1375 


1376 


1379 




1380 


13'=4 


1396 


1414 


1422 


1425 


1426 


1427 


1464 


1470 


1486 


1523 


1524 


1535 




1540 


1544 


155 3 


1556 


1558 


1559 


1565 


1568 


1570 


1592 


1597 


1604 


1614 


1617 




1623 


1639 


1649 


1650 


1651 


1656 


16';8 


1665 


1667 


1672 


1674 


1681 


1704 


1735 




1757 


1773 


1879 


1896 


1900 


19P15 


1917 


1944 


1946 


1951 


1952 


1958 


1959 


1995 




2043 


2044 


2f?47 • 


2048 


2050 


2073 


2075 


2076 














ODPS-'C 


1525 


2045 


2060 


2062# 






















RD! 


6# 


6 


























DDO 


bM 


6 


























DDT2 


5?3# 


526 


























DOTJ 


525# 


530 


541 
























DDT4 


527# 




























DDT5 


519# 


lBr9 


























DDTCN.C 


480 


489* 


























DDTIM 


446 


451* 


























DOT I '.I 
DDTM 


A57U 

natt 


4';2 


459 


519 


8C7 


817 


887 


1002 


1026 


1311 


1350 


1413 


1547 


1775 





1809 


19^4 


























DDTQUT 


513 


515*1 


























ODTUTT 


5?6 


534 


543# 


1040 






















DDTWAT 


536# 




























OELETL 


176S 


1778 


1943# 
























OEK! 


6« 


6 


























nEVAOR 


6# 


6 


























DEVBUF 


6i» 


6 


























DEVCHR 


6# 


6 


























DEVCTR 


6tt 


6 


























OEVDAT 


61t 


6 


173 


192 


460 


486 


1052 


1056 


1092 


1094 


1095 


1097 


1118 


1119 




llPl 


1129 


1156 


133.i 


1335 


1364 


1365 


1444 


1447 


1450 


1964 


2066 


2068 


2069 




20'59 


2108 


21PI9 


212i« 


2123 




















DEVEXT 


6# 


6 


























riEVFIL 


6# 


6 


























HEVIAO 


6# 


6 


192 


825 


830 


849 


2075 
















DEVIOS 


6# 


6 


241 


317 


453 


458 


460 


486 


520 


537 


806 


808 


B18 


847 




859 


873 


885 


836 


890 


900 


939 


944 


10l?l 


1003 


1029 


1100 


ia25 


1198 




12t12 


1278 


1286 


1313 


1319 


1328 


1384 


1396 


1414 


1422 


1425 


1426 


1^47 


1486 




1535 


1558 


1565 


1592 


1614 


1639 


16'51, 


1672 


1681 


1704 


1735 


1757 


1773 


16/9 




19f!5 


19(17 


1964 


2047 






















DEVLOG 


6* 


6 


1333 
























DEVMnD 


6# 


6 


239 


242 


255 


1097 


1195 


1291 


1335 


1444 


2050 


2069 


2099 




OEVNAH 


6# 


6 


240 


1108 


1338 


1376 


1449 


1450 


2048 


2108 


2109 


2123 






DEV040 


6# 


6 


917 


921 


2076 




















nEVOPR 


11PI9 


1354 


1372 


1451 


1452 




















OEVPHY 


1354 


1371 


























rjEvppN 
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